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MAPPER 80 is a general online report processing system that uses a report structured data base. You do not 
have to understand programming to use MAPPER 80. Users can create and delete reports; manipulate data 
within reports; design new formats and applications; execute runs; and design new runs. 


This manual tells how to generate report forms and create reports. It also discusses MAPPER 80 utilities and 
their use with or without your own code, including: 


a MAPLOD - creation of reports 
rT] MAPLST -— report print control 


oe] 2 MAPRAD - creation of data or run reports and addition or appending of reports from MIRAM files to the 
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a MAPDMS -— subroutine to your own program to initiate, manipulate, and terminate reports offline when 
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This Library Memo announces the release and availability of “SPERRY® Operating System/3 (OS/3) 
MAPPER 80 Forms Generation and Utilities User Guide”, UP-9736. 


User Guide 





The MAPPER 80 software is a general online report processing system that uses a report structured data 
base. You do not have to understand programming to use the MAPPER 80 software. Users can create and 
delete reports; manipulate data within reports; design new formats and applications; execute runs; and design 
new runs. 


MAPPER 80 capabilities include column-formed report entry, storage, retrieval, updating, and hard-copy output. 
On column-formed reports, report processing functions include searching, sorting, matching, totalizing, and 
character-string location and change. 


Run functions automate and speed report processing when manual functions are combined and used 
repetively. 


This manual telis how to generate report forms and create reports. It also discusses MAPPER 80 utilities and 
their use, with or without your own code, including: 


a MAPLOD - creation of reports 
a MAPLST — report print control 


2 MAPRAD - creation of data or run reports and addition or appending of reports from MIRAM files to the 
data base 


rT MAPDMS - subroutine to your own program to initiate, manipulate, and terminate reports offline when 
repetitive functions are performed on reports 


This user guide is one of a series of MAPPER 80 manuals designed to instruct both novice and experienced 
users in the MAPPER 80 system. Current versions of the following MAPPER 80 manuals are also available: 


a Introduction, UP-10000 

= = Operator and coordinator user guide, UP-9737 
a Manual functions user guide, UP-9735 

r Run functions user guide, UP-9734 


Additional copies may be ordered by your local Sperry representative. 
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MAPPER 80 FORMS GENERATION AND UTILITIES Update A 


Preface 


This manual is one of a series designed to instruct and guide the SPERRY Operating 
System/3 (OS/3) MAPPER 80 system or Series 90 user. It specifically describes the: 


MAPPER 80 report load utility (MAPLOD) 
MAPPER 80 report print utility (MAPLST) 
MAPPER 80 report add utility (MAPRAD) 


non-MAPPER 80 file or data base report utility (MAPDMS) 


Current versions of four other MAPPER 80 manuals are also available: 


Introduction, UP- 10000 
Provides an overview of MAPPER 80 system. 
Operator and coordinator user guide, UP-9737 


Discusses MAPPER 80 operations, including system generation and data base 
system coordination. 


Manual functions user guide, UP-9735 


Describes all the manual functions and how they manipulate reports or data within 
reports. 


Run functions user guide, UP-9734 


Describes a powerful set of procedure-like run functions that call sequences of 
manual functions to manipulate reports or the data within them. 
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This manual is divided into six sections: 


Section 1. Introduction 
Provides an overview of the four MAPPER 80 utilities described in this manual. 
Section 2. Forms Generation 


Describes the steps needed to define a new report type. Use this section only 
when defining a report type for the first time. 


Section 3. MAPLOD Utility 


Tells how to use the MAPLOD utility to create reports on a data base from the 
contents of an OS/3 spool file and how to include your own code. 


Section 4. MAPLST Utility 


Describes how to use the MAPLST utility to start, stop, and control the printing of 
reports. 


Section 5. MAPRAD Utility 


Describes how to use the MAPRAD utility to create data, run reports, and add 
reports to existing reports from a MIRAM file to a MAPPER 80 data base. 


Section 6. MAPDMS Utility 


Describes the MAPDMS utility; the CALL functions that initiate and terminate the 
MAPDMS utility and reports; the processing report line functions that allow you to 
change or manipulate one tine of a particular report; and the rollback and lock 
procedures. This section is for advanced programmers who write their own 
programs to interface the MAPPER 80 data base. 


In addition, Appendix A provides a list of MAPPER 80 error messages. 
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1. Introduction 


This manual explains how to use MAPPER 80 software to: 

™ generate report forms; 

™ create and print reports using the MAPLOD and MAPLST utilities; 

m™ add reports to the MAPPER 80 data base using the MAPRAD utility; and 
™ use your own programs to directly query and update MAPPER 80 reports. 


A knowledge of SPERRY Operating System/3 (OS/3) and job control streams is 
required to use these utilities, and advanced programming techniques are necessary to 
properly use the MAPDMS utility. 


The MAPLOD and MAPLST utilities perform complementary operations. MAPLOD allows 
you to enter MAPPER 80 reports into the data base from an OS/3 spool file. MAPLST 
produces MAPPER 80 reports on the system printer and allows you to control print 
operations (i.e., line spacing and headers). 


The MAPRAD utility is a batch utility that adds reports to the MAPPER 80 data base 
from a MIRAM file. 


The MAPDMS utility acts as a subroutine to your own program allowing you to access 
and manipulate a MAPPER 80 data base at a more intricate level. 

















UP-9736 SPERRY OS/3 2-1 
MAPPER 80 FORMS GENERATION AND UTILITIES 


2. Forms Generation 


2.1. HOW TO GENERATE A FORM 


To enter data into the MAPPER 80 data base, it is first necessary to define a report 
form type. 


The MAPPER 80 data base consists of mode, type, and report identification (RID). 
Within the data base, all reports in a type within a mode have the same data format. 
The format of each type is defined in RID O when new data is stored. 


The basic responsibility for forms generation lies with the MAPPER 80 coordinator. 
When it is necessary to generate a report form, apply to the coordinator. 


Figure 2—1 illustrates the process of forms generation. 


= Estimate of report and service 


When a report is being newly created, the user clarifies the report’s objective and 
service. In addition, he considers and justifies the frequency of access to the report 
and cost of operation. 


= #8 Application to the coordinator 


The person who wants to add a new report in the MAPPER 80 data base must 
apply for a new report using, for example, a MAPPER 80 Use Service Registration 
Application Form to register the report. This application must then be checked and 
approved by the coordinator. It is the coordinator’s responsibility to maintain the 
performance efficiency of the MAPPER 80 software. Figure 2—2 shows a sample 
report application form. 
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Figure 2-1. MAPPER 80 Forms Generation Process 
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DATE 83/06/15 14:29:53 


MAPPER User Service Registration Application Form 


Classification Report Type User Department 


Line Length Date Prepared 


[] New Person in Charge 
Ea Revised 


Name of Service 


Details of Service 


Interface with Other Systems 


Total data base lines/type . Estimated terminal use, hrs./month 


No. of reports/type 4. —_No. of pages output by onsite printer/month 


Miscellaneous comment 


For Information Systems Department Use 





Figure 2-2. Sample Application Form 
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w Evaluation of report by coordinator 





Based on the application, the coordinator evaluates the following: 
1. Volume of the report and its effect on the data base 
2. Frequency of access to the report for use and updating 


3. General application and special characteristics of the report, and the existence 
of similar reports 


4. Type of terminal and periods of use 

5. Miscellaneous special conditions 

If the coordinator accepts the report, he generates a new form type. When the 
new report is inappropriate, you must make a further study. Depending on the 
priority of the report, the coordinator may give conditional approval. 

NOTE: 

For convenience in the following forms generation description, we show screens 
132 characters wide and 40 lines long. When RIDs are more than 80 columns wide 


or more than 20 lines long, you must use the shift or roll functions to display the 
additional columns or lines. 





w Generation of a blank RID O 


The coordinator generates a blank RID O for the newly allocated form type, and 
informs you of it. A blank RID O is a RID O form whose contents are blank. Figure 
2-3 shows a sample blank RID O. The coordinator uses the TGEN function to 
register the form name, line length, mode, password, and user-id on the data base. 























eDATE 82/07/26 18:22:21 TYPE=E RID=G0Q 83/07/26 PAPPER oe TERFINAL=T701 LSER=MAPPER a* 


ODBNAHAWN= 


ovATE 





Figure 2-3. Sample Blank RID O Form 
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Generation of a formatted RID O 


Using the blank RID O generated by the coordinator, you generate a formatted RID 
O via the FGEN function and line update functions. Figure 2-4 shows an example of 
a formatted RID O. 
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Figure 2-4. Sample RID O Containing Information 


Addition of a report 


On completion of the formatted RID O, you add reports in the particular RID type by 
using the AR function or the MAPLOD utility. (See Section 3.) At this point, the 
report is ready for data entry. 
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2.2. RIDO 


RID O is fixed at 40 lines and contains the following information: 


Line 1 (first line) 
Contains the date and time when the report was created and the user's identity. 
Mask (lines 2—16) 


Contains the mask images that receive parameters for using the SEARCH, MATCH, 
TOTALIZE, and other manual functions. 


Line 2 is blank. Lines 3 and 4 are header lines and have the same contents as the 
header lines in the basic report (lines 19 and 20). They define the fields. Line 5 is a 
dividing line (*=) that divides the headers from the data. The equal signs define 
each field and periods define the boundary between fields. A period is in the last 
column. 


Line 6 indicates the number of columns in each field by using asterisks. The 
asterisks correspond to the positions of the column in each field, while the 
boundaries of the fields are left blank. Lines 7 through 16 provide 10 blank tab 
lines with empty fields, each line having tabs in the field boundaries. These empty 
field boundaries receive parameters when the mask is displayed on the screen. 


Basic report (lines 17-31) 


Contains the basic format of the report type as added to the RID type via the ADD 
REPORT manual function. The basic report format consists of 15 lines plus 1 END 
REPORT line. 


Line 17 begins with .DATE for future use. Line 18 starts with a period and contains 
the title of the report. Lines beginning with asterisks (*) or periods (.) contain no tab 
characters and must be predefined. Lines 19 and 20 are header lines that define 
the fields, and line 21 is a dividing line. These three lines have the same content as 
lines 3, 4, and 5 in the mask. You can use the header lines with the MAPLOD 
utility. 


Line 22 is a blank tab line. Lines 23 through 31 are predefined lines where you 
enter data in the fields for future reference. The blank tab line and predefined blank 
lines (23 through 31) allow you to add lines to the report by using the ADD LINE 
manual function. Since these lines are set the same as the blank tab line, when you 
provide optional data in the predefined blank lines, you must set the tab in the last 
column of the tab line. 
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a Edit code (line 32) 
This line defines the character set type for the fields within the report lines. 
Specify an edit code for each field. When you update data with the UPDATE LINE 
manual function or check data while producing a report with the MAPLOD utility, 
the edit code verifies the characters used in each field. 
The first column in each field specifies the edit code, and a column corresponding 


to a tab line is assigned a zero. Table 2-1 shows edit codes used to verify fields in 
RID O. 


Table 2-1. Edit Codes Used in RID Field Verification 


Edit Code ote Field Content Description 
Contains zero. Cannot be indicated in two consecutive fields 


Numerical items Contains numeric values, plus or minus signs before data, and decimal 
points within numeric data 

Edit items with numeric values Contains dollar signs ($) before data, commas, and decimal points within 
numeric data 


Characters Contains blanks, alphanumeric characters, Katakana characters, 
special characters 
- Contains the same as edit code 4, except blank columns are not allowed 


Edit codes 1 and 2 are right-justified fields, while all other codes are left-justified. Enter 
data anywhere in the field; it is automatically adjusted according to the edit code of the 
receiving field. However, the results of calculations performed by the TOTALIZE manual 
function are always right-justified when displayed in a field, regardless of the edit code. 








a ~~ Blank (line 33) 
Blank line 
= @©Format control lines (line 34-39) 
Defines up to six modifications of a particular basic format. For each modified 


format, specify all necessary fields by entering Xs in all pertinent columns. (See 
Figure 2-4.) 
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mw END REPORT lire (line 40) 


The blank RID O generated by the coordinator contains only lines 1, 17, and 40. You 
add the other lines by using line update functions or FGEN function request. 


2.3. USING THE FGEN FUNCTION TO PREPARE RID O FOR DATA REPORTS 


The coordinator generates the blank RID O. You use the FGEN function to identify the 
RID type in which you want to create a report. (See Figure 2—4.) This function allows 
you to prepare headers and modified formats. 


NOTE: 


The FGEN function is invalid for modes 994, 996, and 998. This applies only to a 
MAPPER 80 coordinator since only a coordinator may access these modes. See the 
MAPPER 80 Operator and Coordinator User Guide, UP-9737 (current version). 


Using the interactive function, key in FGEN as the function name and transmit. Figure 
2~5 shows the resulting FGEN screen: 



































KAKKKKEKKKKEKKKEREKREARKERKKEKKKK 


* FUNCTIONE 
PIII III II KI IR III KEK 





C ENTER REQUESTED INFORMATION J 


TYPE ( } : 'B' - 'T! 


( ENTER NEW FUNCTION REQUEST) —“‘ SDU”*é‘S;C;OO!C™ 
FUNCTION < > 


PARAMETER < > 





Figure 2-5. Function Request Screen Display 
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& Enter the type name (B through |) in the TYPE field and transmit. Figure 2—6 shows the 
resulting menu screen that asks which FGEN option you want. 












































<1>  FGEN FUNCTION MENU 

= . ENTER 'Y' IN ONE OF THE FOLLOWING: 

1. ‘CREATE A RID-0 
1.1. RID-0 OF DATA REPORT eS 
1.2. RID-0 OF RUN REPORT (3 





2. COPY THE MASK HEADER TO ( ) 
THE HEADER OF REPORT 


<<< COMPLETED ALL INPUT ? ( y >>> Y: YES 
E: TERMINATION 


$110 





Figure 2-6. .FGEN Function Menu Screen Display 


@ Choose from three different operations within the FGEN function: 

1. Prepare RID O for a data report. 

2. Prepare RID O for a run report. 

3. Copy headers from the header section of the mask area to the header section of a 
basic report area. Use this function also when changing the content of header 
fields. 

When preparing RID O, be sure there are no reports, other than RID O, in the form type. 

This is necessary because the new basic format of RID O does not consider report 


formats previously generated in this form type. 


You can modify the established RID O as often as you want when there are no other 
reports in the form type. 


Figure 2-7 shows the selection of RID O OF DATA REPORT option. Note that in this 
example, the last field on the screen is not specified. When left blank, the default is Y. 
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<1> FGEN FUNCTION MENU 
. ENTER 'Y' IN ONE OF THE FOLLOWING: 
1. CREATE A RID-0 
1.1. RID-0 OF DATA REPORT 





1.2. RID-0 OF RUN REPORT ( ) 


2. COPY THE MASK HEADER TO ( ) 
THE HEADER OF REPORT 


YES 


<<< COMPLETED ALL INPUT ? ( y >>> 
: TERMINATION 


TmH-< 


$110 





Figure 2~7. FGEN Function Menu Screen with RID O Data Entry Choice 


Figure 2-8 shows the data report format screen that results when you press the 
transmit key. 





















I 


<2.1> ENTER NO. OF COLUMNS AND EDIT-CODE FOR EACH FIELD : (YOU MUST ENTER 
ALL ITEMS IN SEQUENTIAL ORDER BY FIELD NO.) 
TYPE : D MODE : 102 LINE LENGTH : 128 





I 1 ¢ »«) 4 ae Ge Cae 

‘I 3 ( »() 4 ( a oe coe 

I 5 | mt 4 6 | cde oF ot 

I BH » (9 8 | hos “Po ct 

I 9 ( al ae 10 ( oe eet a 

I ll ( a 12 ( ye. yk et 

I 13 ( mete 3 14 ( Roe Oh At 

I 15 ( hat a 16 ( ee ae a 

I 17 ( ae - 9 18 ( Ro - 

I 19 ( » ( ) 20 ( iL tuck of 

<<< IS THIS INPUT OK? (  ) >>> YY: YES N: NO 
M: RETURN TO MENU SCREEN 
E: TERMINATION $112 


Figure 2-8. Data Report Form Specifications Screen Display 
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Figure 2-9 shows entries on this screen for the length of field and the edit code. When 
indicating field lengths, don’t count tab characters. Also, you can't specify the edit code 
zero (0). 





























<2.1> ENTER NO. OF COLUMNS AND EDIT-CODE FOR EACH FIELD : (YOU MUST ENTER 
ALL ITEMS IN SEQUENTIAL ORDER BY FIELD NO.) 
TYPE : D MODE : 102 LINE LENGTH : 128 





<<< IS THIS INPUT OK? ( ) >>> Y: YES N: NO 
M: RETURN TO MENU SCREEN 
E: TERMINATION $112 





Figure 2-9. Data Report Form Specifications Screen Display with Entries Completed 


Once you enter the field items, verify the input, transmit, and enter one of the following 
options in the last field: 


Y The input is correct. Proceed to the next step of FGEN processing. 


N Mistakes in the input. Display the screen again to correct input. After making 
changes, press transmit key. 


M_ Abort the process and redisplay the FGEN function menu screen. Previous 
input is ignored. 


E Abort the process and display the user logo. 


Figure 2-10 shows the results when you don’t enter anything in this field or when you 
enter Y and transmit. This screen confirms the input that was just completed. 
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<2.2> CHECK INPUT: NO. OF CHARACTERS AND EDIT CODE OF EACH FIELD. 


TYPE: D MODE: 102 LINE LENGTH: 128 REMAINING COLUMNS: 
KIKI I IKK I III AIK III III III IIIA IIIS IIIS III IIASA II IIIA III IIIA 
* FIELD NO. CHARS EDT CODE * FIELD NO. CHARS EDT CODE * 
III III IIIA IKI III IIA IAI IAI ISI IAI IAI I SII III III IIR III IIIA IIE 





x 1 002 4 ANKB x 2 006 1 NUME * 

x 3 009 4 ANKB x 4 003 1 NUME * 

* 5 004 4 ANKB * 6 008 1 NUME * 

x 7 008 1 NUME x 8 006 1 NUME * 

* 9 004 SANK * 10 017 4 ANKB * 

x ll 015 4 ANKB * 12 014 4 ANKB x 

* 13 005 4 ANKB * 14 005 1 NUME * 

x 15 006 4 ANKB * * 

* * x 

x * * 

RRRKKKKEKKEREK KKK AIK RK KIKR ERR IKKE IKI IIIA III IAI IIIA III IK 

<<< INPUT OK? ( ) >>> Y: YES C: CONTINUE N: NO 

M: RETURN TO MENU SCREEN 
E: TERMINATION $114 





Figure 2-10. Data Report Form Specifications Screen Resulting from Blank or Y Entry 


After verifying the contents of the screen, enter N when there are errors and transmit. 
The screen for requesting item length and edit code reappears, and you can correct the 
input. 





If the contents of the screen are correct, specify Y or C. The MAPPER 80 system 
handles up to 75 items in one line. However, you can only specify 20 items with one 
input screen; if there are remaining items, enter C. 


C redisplays the screen for requesting item length and edit code. Enter the remaining 
fields as before. 


M displays the FGEN function menu screen (Figure 2-7). E displays the user logo 
screen. Both M or E ignore all previous input. 


Y or blank converts RID O into the skeleton RID O displayed on the screen. (See Figure 
2-11.) Figure 2—12 shows RID O with field headers and report title. 
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eUATE O2/C7/2€ 14228291 TYPESE RIO“CCC 83/07/26 PAPPER #@ TERPINAL=101 USER=JCOE Phy 
ee . . . . . . al al el ‘a ol ol . . 
8 9 of ol . 3 4 5 Cer 






Totes se. 
FO BECOTD SORTER STS FOF BEE PHEESERS BORTNESS 099990 9998 8999700019 CS18994 FERRET Sete Susses ons 








O4 ul cs €) Ca 01 1 ul cs oa ca ca ia) qa aa 0 t) 


vevee END REPORT oe 





Figure 2-11. Skeleton RID O Screen Display 






























UATE V8s36243 RID=000 83/07/26 DOE 





&1/07/26 TYPE=E oe TERFINAL=TOX USER=JCOE 

*STORDER 4 PRODUCT .COR.CUST. UNIT .EXTENCED.REQ*D «SALE. . . * . . . . 

*COWNUMBERs TYPE eCTY.CODE. RETAIL « RETAIL .DELIVR REP . CUSTOMER . ACONESS . cry TAK. ZIP sREMARKe . 
: 7 : 


est 








GATE 

« CCC CORPORATE ORDER STATUS >)> 

woo. * ° o . . . . el ol o? ok od el ° . 
*1 3 eH 05 of 







* 


ecees END REPORT coace 


Figure 2-12. RID O Containing Field Header and Report Title 
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Be careful when there are remaining fields to be specified on the data report form 
screen. When you leave the INPUT OK option blank and press transmit, all the field 
definitions are considered complete. If there are remaining fields, enter C and don't 
leave the option blank. 


In Figure 2—11, tab characters are invisible from line 7 to line 16 and from line 22 to 
line 31; however, tabs are set between fields. These tab characters are counted in the 
total line length (but not field lengths) indicated at the top of the data report form 
specification (Figure 2-9). 


In addition, in Figure 2-11, the total line length doesn’t match the 132-character line 
length specified in Figure 2—8. Therefore, the four characters are automatically assigned 
to edit code 4. 


When the skeleton RID O is displayed, prepare the mask area headers (third and fourth 
lines) by using the SOE UPDATE manual function. When the length exceeds 80 
columns, the screen shifts and the remaining part of the line is completed via the SOE 
UPDATE function. 


When the mask headers are complete, add the report name on line 18 of RID O using 
the SOE UPDATE function. 


Then, enter the resume function (RSM) in line 1 or press the F1 function key. The 
headers from the mask area are automatically copied as headers in the basic report 
area; with the exception of the modified format definitions, RID O is complete. 


As soon as the automatic duplication of the header is complete, the screen shown in 
Figure 2-13 is displayed so that you can complete the definition of the modified 
formats. 





























<4.1> ENTER FORMAT NO. AND FIELD NO. OF EACH FORMAT. 
FORMAT NO. ( ) LINE LENGTH: 128 TYPE: D MODE: 102 


I ( ) I ( ) I 

I ( ) I ( ) I 

I ( ) T ( ) I 

I ( ) IT ( ) I 

I ( ) I ( ) I 

I ( ) I ( ) I 

I ( ) I ( ) I 

I ( } I ( } I 

I ( ) IT ( ) I 

I ( ) I ( ) I 

<<< INPUT OK? ( ) >>> Y: YES N: NO M: MENU 
F: END FGEN, DISPLAY RID 0 
E: TERMINATION $117 





Figure 2-13. Screen Display for Entering Modified Formats 
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Enter the number of the modified format you want to define, and the numbers of the 
fields you want to display via this format. (See Figure 2-14.) 





























<4.1> ENTER FORMAT NO. AND FIELD NO. OF EACH FORMAT. 
FORMAT NO. ( 1 ) LINE LENGTH: 128 TYPE: D MODE: 102 





<<< INPUT OK? ( ) >>> Y: YES NWN: NO M: MENU 
F: END FGEN, DISPLAY RID 0 
E: TERMINATION $117 





Figure 2-14. Screen Display Showing Modified Format Entries 


When you don’t define a modified format or when a required definition is complete, 
enter F, M, or E in the last field and transmit. 


F displays the completed RID 0; M calls up the function request menu screen (Figure 
2-7); E displays the user logo. In any of these cases, the data you enter is processed. 


If the format number and field numbers you entered are correct, enter Y or leave the 
field blank and transmit. 


Figure 2—15 shows the screen display that allows the input to be reconfirmed. 
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<4.2> PLEASE CHECK NO. OF CHARACTERS AND EDIT CODE OF EACH FIELD. 


FORMAT: 1 TYPE: D MODE: 102 LINE LENGTH: 128 
KAKKKKIKII KIER IKI II IIIA II III RI IAI IIIS IKI I III IRI IER IK 
* FIELD NO. CHARS EDT CODE * FIELD NO. CHARS EDT CODE x 
KIKIKKIKE KEIR IIIA III I IIIA III IARI IIIA IIIA III III IIIA 
x 10 17 4 ANKB ll 15 4 ANKB x 
12 14 4 ANKB 13 5 4 ANKB 
14 5 1 NUME 


26 3 3 2G 9 OF OE OF OE OE 


x x 
x * 
* k 
* * 
x x 
x x 
x x 
x x 
x x 
* * 


KKKKKAKKIKKRKAKR ERIK IKI IIA KEIRA RER IARI IIR ERR IKE 
<<<. COMPLETED ALL INPUT? = ( } >>> Y: YES C: CONTINUATION 


M: RETURN TO MENU SCREEN N: NO 
E: TERMINATION $118 





Figure 2-15. Data Report Form — Field Confirmation Screen Display 


When the contents are incorrect, enter N and the correct data. 


When the data is correct, enter C or Y. C indicates continuation when you enter 
additional items for one type of format. The screen for entering format and field 
numbers reappears so you can enter the continued items. (See Figure 2-13.) 


Y or blank indicates that the definition of one format is complete, and that the modified 
format specified on RID O is registered. 


E indicates all necessary formats are defined. Press transmit to complete RID 0. 
A completed RID O terminates the FGEN function. 


Confirm the contents of RID O on the screen using the shift and roll functions and 
confirm the result of the modified format. If the confirmation shows irregularities in 
sections of the skeleton RID O, correct the problem with the FGEN function, starting at 
the beginning. If the problem is in the header contents or the modified format section, 
revise them by using the method outlined in 2.5. 


Next, enter the appropriate data in lines 23 to 31 of RID O using the SOE UPDATE 
manual function. You can treat those lines as predefined lines using the ADD LINE 
manual function. Except for tab lines, set the lines as constants for future reference. 
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2.4. USING LINE UPDATE FUNCTIONS TO COMPLETE RID 0 


In addition to using the FGEN function, you can complete RID O by using line update 
functions. Figure 2-16 shows a sample RID O after its completion using line update 


functions. 

































































eLATE 83/06/15 19:28:08 TYPE=C RID=GO0 82/08/13) DOE ee TERPIRAL=102 USER=UDOE w 


*STLORCER « PRODUCT sCOReCUSTs UNIT cEXTENDED.REQ*D «SALEs . . 

wCONUMGER, TYPE eGTY.CODE, RETAIL « RETAIL .DELIVR.REP « CUSTORER ~}« ACDRESS * “cry {s1ate. zip TREMARK 

WILT Sots GOSS SSIES STL ellis gr STSSSIS STS LsSS SSSI IgE Tg SSSSSSSS PS TSISISs g LSS SSS TSTSTSLS 2 gS TSSSST IAS SSIa ESSE gSTSIT ST TISre 
G9 CUNSND BHETEESS O48 FORT CHTSTETS FORISESS 244900 FESS 09090790089999981 FEOHENEDGENEEEL CESECOCATAASEH 2ER1E FOOTE BHEdSE 


COnANawno 


LATE Q9sSe:a9 T¥YPE=C RIOZOCE E2/G7/C1 MAPPER 
«© 66€) CORPORATE CRUER STATUS 37> 

*STORDER « PRODUCT .COR.CUST. UNIT cENTENDEDREQ*D eSALEs . . « . . e 
SCOONUMBER. TYPE eCTY.CODE. RETAIL « RETAIL oCELIVARREF « CUSTCHER . ADDRESS . cry STATE. ZIP eREMARKs 


WIT ST SSS SSTSTST SST Flr MIST TSISTSIS SESS FSSS I TSS ITS gSSSSQSSSSTSTS TE TSS SITs TSS SIS SSSI THT T ST TSSSASILTlsss Sess eSTSrseTTIsSs, 


O4 Us oa ci ca Qi 1 a1 ca oa os ce ce ts on i) 


x (78]000000000000000000000000003 00000008 0000000000000 000000080 0000000000001 
20000000000 0000 200000 000 OOOO OOO OOOO SOOO OOOO NOOR 

M MAXKD OD XUAKN AMAMAARAMIAIA IA IAI AAAI KIARA MARKIAAARN IAIN AAAANA IAIN AN IN HA AIA AA HH 

x 7000000000000 90 9909900909900 90000000008 8. OOOO RORNO0N0N 
MAK {OD000D NOX 9}990000000 0003000000000 200000 000 20 20000000880 OUODL 
x 


aecee END REPORT coves 


















































Figure 2-16. RID O after Completion Using Line Update Functions 


To prepare RID O, use the same method as for updating other MAPPER 80 reports. To 
complete the RID O by using line update functions, you must be able to use the 
following manual functions: ADD LINE, DELETE LINE, and DUPLICATE LINE. Use these 
steps to prepare the skeleton RID O for a run report: 


1. Display the blank RID O on the screen. 
2. Key in the information from lines 3 to 7, including all periods, equal signs, 


asterisks, and headings. Leave line 2 blank for future use. Line 7 is a blank tab line. 
(Tabs must be set manually in the first column and in the columns between fields). 
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Press the transmit key to update lines 3 to 7. 


When the line length is greater than 81 columns, use the shift function to display 
columns after column 81. 


Perform the operations outlined in steps 2 to 4 on the remaining lines. Insert a tab 
in the last column. 


Line 7 (an open tab line) is duplicated down to line 16 to finalize the mask region. 
To do this, enter the following in column 1 of line 7: 


>110Xx 


Operations up to this point complete the mask. 


The basic report section is produced by duplicating the 16 lines, from line 2 to line 
17, beginning at line 18. To do this, key in the following: 


[11X16 


To display the area in the basic report section, key in 17 immediately after the LINE 
[> field on line O and transmit. 


Enter .DATE (from the beginning of the first data line on the screen) on line 17 of 
RID O and transmit. 


Key in a period in line 18 of RID O. Key in any comments (e.g., title of the report) 
and transmit. 


Because line 6 (corresponding to line 22 of RID O) remains filled with asterisks, key 
in the following in column 1 of line 6 to erase this line: 


>11- 


To display the lines below the edit code line, key in 32 immediately after the LINE 
[> field on line O and transmit. 


Enter the edit code in the first data line on the screen (line 32 of RID O). Tabs are 
already set in this line as a result of previous operations. Using the tab key 
advances the cursor, and pressing the € key reverses the cursor to the preceding 
column (the tab position). This is where you key in O as the edit code. Repeat this 
operation for all fields until reaching the end of the line. 
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When line length exceeds 81 columns, display the rest of the columns after 81 by 
using the shift function. Repeat step 13. 


Next, define the modified formats of RID O. If the screen was shifted in a previous 
step, then shift the screen back to column 1 by using the SHIFT function. 


Define modified formats in the third to eighth data lines on the screen (lines 34-39 
of RID 0). Line 34 in RID O corresponds to format 1 and line 39 corresponds to 
format 6. Key Xs directly into all columns of the field and into the tab columns of 
each format you want to display. Press the transmit key. 


When line length exceeds 81 columns, repeat step 16 after shifting. 


After defining the formats, use the DISPLAY manual function to display the RID O 
you produced. Key in the format number directly after the FMT [> field on line O. 
Next, check format status especially when the report is not redisplayed (even if you 
specified a function on the FMT [> field on line 0) because a modified format that 
was just registered may not be effective. 


2.5. EXPANDING AND ALTERING RID 0 


There are five ways to expand or alter RID O: 


1. 


.Changing the content of headers 


When you want to change the content of headers only, display RID O and use the 
SOE UPDATE function to change the headers in the mask area. Next, call the FGEN 
function and request the header copy operation. If you perform this operation, only 
the headers on RID O change. This action doesn’t change the headers on the 
reports that were already generated in this form type. 


Changing modified formats 


Blanks (nondisplay columns) and Xs (display columns) for each field in each line of 
the modified formats are defined on RID O. When you want to change a modified 
format, modify Xs or blanks in each field by using the SOE UPDATE manual 
function. When making this change, you must also change the tab columns 
following each field because they are part of the field. After the change is 
complete, and you verify that format, display the RID O again using the DISPLAY 
manual function. Then, enter the format number in the FMT [> field of line O to 
confirm the result. 
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3. Changing the report name and predefined lines 
Use the SOE UPDATE manual function to make these changes. 
NOTE: 
When changing the contents of RID O, don't use the ADD LINE, DELETE LINE, and 
DUPLICATE LINE functions because these functions change the lines they refer to and 
subsequent line numbers. You also risk shifting lines out of position (such as the edit 
code line and format control line). 
4. Changing the edit code 
When changing the field edit code, if it is only a loose check type of change (e.g., 
edit codes from 1, 2 change to 4), change only the edit code on RID O, using the 
UPDATE LINE function. 


5. Miscellaneous changes 


When you can’t make changes by simply changing RID O, use the following 
method: 


w Use the MAPLST utility (Section 4) to save all reports in that form type, other 
than RID O. 


w Erase all reports except RID O, using the DELETE REPORT (DR) function. 
= Remodel! RID O using the FGEN function. 
m Store the reports saved by the MAPLST utility using the MAPLOD utility 
(Section 3). 
2.6. PREPARING RID 0 FOR RUN REPORT 


To prepare a run report, call FGEN function (Figure 2-17), designate the form type 
number, enter the following data to request the type of processing, and transmit. 
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<1> FGEN FUNCTION MENU 
- ENTER 'Y' IN ONE OF THE FOLLOWING: 
1. CREATE A RID-0 


1.1. RID-0 OF DATA REPORT () 
1.2. RID-O0 OF RUN REPORT (ep 
2. COPY THE MASK HEADER TO () 


THE HEADER OF REPORT 


<<< COMPLETED ALL INPUT ? ( » >>> Y: YES 
E: TERMINATION 


$110 


Figure 2-17. FGEN Function Menu Screen Display 





Choosing RID 0 of RUN REPORT on the FGEN menu prepares the skeleton RID O for a 
run report, which is then displayed on the screen. Figure 2-18 shows the skeleton RID 
O for a run report. 















































eLATE 82/07/26 18:12:25 TVPESI RID=O0G 83/07/26 MAPPER oe TERFINAL=T702 USER=JDOE 


999000969 4052498 500989855998 549 99H 11TH 5 FETT TSNTSTDS4STSOE IRN 100910599509 10 4088 999019909988 


Figure 2~18. Skeleton RID O for a RUN Report 
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Using the SOE UPDATE function, enter the headers for the displayed skeleton RID O 
mask area in lines 3, 4, and 18 of the basic report area. Next, enter the resume 
function (RSM) or the F1 function key to automatically copy the headers in the mask 
area into the header area of the basic report. The completed RID O (Figure 2-19) 
appears on the screen. 


oDATE 63/07/26 19:18:00 TYPE=I RIDTOCO 83/07/26 IDOE OO TEAPIMAL=1O3 CEER=UCOE ae 


* JGOE RUN REPORT OF CEPARTMENT KURBSER 7. See eee 
THIS 35 NOT A COMM me Rtn REPoat 















° 
09OS0 0695 OS TOTHHSSEDHCSE SSS SLES DESESESES sesecooeccecence desusececatadenecasesauesecs decesseseseseseeca cpnevedeccsconcnsoce 





euATE 
AUR BEPOET OF eaagerse Te 
* JCOE RUN REPORT OF DEPARTMENT BU BER To 
td THIS JS ROT A conven aun REPEAT. 
Ssrissssssressssssrssssssssssssssssssssssssssesssssssssssssssssssrssssissssssssssssesesssssessssesestssgssesssesssessssscscssesss 


MMM MMM 2 OM HOw eeD 


weese EMD REPORT secee 


Figure 2-19. Completed RID O for RUN Report 


After this, you establish the predefined lines in the same way as for the normal RID O. 
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3. MAPLOD Utility 


3.1. WHAT THE MAPLOD UTILITY DOES 

MAPLOD is a batch utility that takes data from a spool file or other existing user data 
and creates new reports, or appends data to existing reports on the MAPPER 80 data 
base. 


By using MAPLOD, large MAPPER 80 reports can easily be constructed from existing 
system output and master data. 


Figure 3-1 shows the control flow for the MAPLOD utility. 


You create a spool file from your own program or data utilities output. The print images 
produced are held in the spool file. 


Unused lines (i.e., headers, total lines, etc) of the print images produced for the spool 
file are removed or converted in the MAPPER 80 report. 
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Figure 3~1. Control Flow for MAPLOD Utility Execution 
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The MAPLOD utility can produce multiple MAPPER 80 reports in one execution. 


INPUT OUTPUT 
PRINT MAPPER 80 
IMAGE REPORT 


When converting each line of the print image to a MAPPER 80 report line, you specify 
the format (alphabetic, numeric, etc) for the items on the line. When the input lines 
don't conform to the specified format, those lines don’t become a part of the MAPPER 
80 report. (This is a way to eliminate lines such as headers and totals on the print 
image.) 


Headers on the MAPPER 80 report are copied from header lines of the report type RID 
0. Also, tab codes separating the fields are inserted according to RID O. 


MAPLOD can change and output the position and format of each item within the line. 


You can create a report tailored to your requirements by writing your own-code routine. 


3.2. MAPLOD CONTROL STATEMENTS 

MAPLOD control statements specify the attributes of the input print image, your own 
code, input/output items, and the MAPPER 80 report to be generated. There are four 
types of control statements: 


#INP Specifies the input print image within the spool file and must be the first 
control statement. 


#HOWN Specifies use of your own code. 
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#FLD Defines the position, length, and format of each field on the input print image & 
line. 


#OUT Specifies the mode, type, and RID number of the MAPPER 80 report to be 
generated. 

3.2.1. Identifying Input Form within Spool Print File (#INP) 

The #INP control statement is required, and you may specify only one #INP statement. 

It identifies the print image processed from a possible multiple of print images in the 

spool file. 


Format: 


#INP al [, JOBN=j obname] 
A\STAND1 


where: 


FORM=formname 
Is the name of the print form (1 to 8 characters) specified on the SPL or VFB 
job control statements when the print images on the spool file are created. 





FORM=STAND 1 


Is the assumed name of the print form when formname was not specified at 
spool file creation time. 


JOBN=j obname 
Is the optional parameter that identifies the print image needed when there are 
multiple print images on the spool file. The name of the print image alone is 
not enough to uniquely identify the print image. 


For example, when two different jobs create print images that appear in the 
spool file and neither job assigned a formname to the print image with the SPL 
or VFB job control statements, both images are assigned the default 
formname, STAND1. To specify which STAND1 formname is needed, specify 
the job that created the STAND1 formname. 


NOTE: 


Use the VFB job control statement to uniquely name each print image. When 
this is not possible, don't create multiple print images in the same job. 
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3.2.2. Including Your Own Code in MAPLOD Utility (FOWN) 

The #OWN control statement allows you to specify your own-code routine in the 
MAPLOD utility. Use this statement only once when your own code is included; it must 
directly follow the #INP statement. 


Format: 


HOWN phasename 


where: 


phasename 
Identifies the phase name provided at link time for your own code, a loadable 
program that was compiled and linked in a separate job. 


3.2.3. Defining Position, Length, and Format of Fields in the Input Form (#FLD) 


The #FLD statement specifies the position, length, and data type of fields on the input 
print image line and the position of the fields on the line of the output report. 


Data types of input fields are verified for agreement with the data type specified on the 
output. When they agree, data is moved to output fields having that field-num in the 
report line. 


When you don’t use an output field-num specification, only input verification is 
performed and the data is not output to a report. This eliminates unwanted lines. You 
can use multiple #FLD statements or specify parameters for multiple fields within a 
single statement. 


Format: 


HFLD position, Length, format[, field-num] 
[;position, Length, format[,field-num]]... 


Commas separate individual parameters, and semicolons separate groups of parameters. 
You can't spread parameters over two #FLD statements. 


where: 
position 
Specifies the first column of the field in the input line is the first column of the 
output line. The default column 1 for the output line is the start of the first 
field on the input line. The maximum column number is 1024 when using your 
own code. 
length 


Defines the length of the input fields (number of bytes). 
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format 
Specifies the data type for the input fields. Table 3-1 shows the available data 


types and their approved contents. 





field-num : 
Specifies the relative number of the defined field designated by RID O of the 
report's output form type. Assign it counting from the first fields as field 
number 1. This parameter is optional and when omitted, verification is 
performed only on the data format of that input field and that field is not 
placed on the MAPPER 80 report. 


Table 3—1. Data Types and Contents 






Approved Contents 


Edit Code 








Numeric fields (0-9). Plus sign (+), minus sign (-), and decimal points are permitted. The 
field can be blank-filled on the left {i.e., right-justified). 






Edited numeric fields. Includes attributes of format 1, a trailing minus sign (-), trailing 
blanks, the dollar sign ($), and commas (e.g., --$2,400.00---). 


[=> Bee | Fields containing only numeric data (O—9); blanks are not permitted. 








Alphanumeric fields. Blanks, alphabetic, O-9, and special characters are allowed. 
Alphanumeric fields where blanks are not permitted. 


Blank fields for erasing unused lines. Use when scanning certain columns. Must be blank. 


The #FLD control statement has two functions: 








= ~=To define the conversion of the field between input and output 


= To suppress certain lines from the output report by verifying only the data format 
of the input fields 


When converting fields between input and output, the starting position, length, and data 
format of the fields in the lines of the output report are requested in the edit code of 
RID O. Conversion is still performed with certain combinations when the data format in 
the input doesn’t correspond to the output fields. Also, when the length differs, blanks 
are inserted or truncation occurs according to the output data format (RID O edit code). 
Approved format conversions and editing methods appear in Table 3-2. Refer to Table 
2—1 for the edit code of RID O. 
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Table 3-2. MAPLOD Utility Field Conversion Rules 


Allowable When the Length is 
Character Formats Different 


Input Output Result Output Field | Output Field 
Format Longer Shorter 
(#FLD) than Input than Input 


Contents unchanged -123.459%-123.45 Leading Truncated 
blanks on left 
inserted 


Contents unchanged +67.89%+67.89 Trailing Truncated 
blanks on right 
added 


Doilar sign ($) and $1,234.56 ~61234.5 Leading Truncated 
comma are erased. The blanks on left 

+ or — is moved to the 67,890.1-7% » -67890.1 inserted 

front of the data. 


Sign + or — is $1234.5-*-$1,234.5 Leading Truncated 
moved to the front. : blanks on left 
inserted 


Contents unchanged $1,234.5-%$ 1,234.5— Trailing Truncated 
blanks on right 
added 


Contents unchanged 12345712345 Leading Truncated 
blanks on left 
inserted 

Contents unchanged 12345712345 Trailing Truncated 
blanks on right 
added 

Contents unchanged ABC 1% ABCHH 1 Trailing Truncated 
blanks on right 
added 

Contents unchanged XYZ#29XYZ#2 Trailing Truncated 
blanks on right 
added 

Contents unchanged XYZ#29XYZ#2 Trailing Truncated 
blanks on right 
added 
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3.2.4. Assigning Mode and Type for MAPPER 80 Reports (#OUT) 


The #OUT control statement assigns the mode and type for the MAPPER 80 reports 
being created. Each #OUT control statement produces one output report. You can use 
multiple statements after the #FLD control statement. 


The output field number specified on the #FLD control statement is verified. You select 
the output field lines, the length of output fields, and data format (edit code) by using 
the #OUT control statement and the edit code line on RID O of the designated type. 


Be careful when assigning a type change with multiple #OUT control statements 
because the output field attributes change. 


Format: 


HOUT user -id,dept-num, [mode-num], [password], typeL, [report-num] 
[,first-pg-num, last-pg-num[,E]]] 


where: 

user-id 
Assigns a user identification name. When combined with a department number 
(the same type of verification as the interactive SIGN ON), sets the default 
mode. Also, your identification (up to 12 characters) is registered in line 1 of 
the output report. 

dept-num 
Identifies the department number (up to 3 characters) associated with the 
user-id. 

mode -num 
Specifies the number of the mode to which the report is assigned. Mode-num 
must be an even number. When it is omitted, the report is placed in the 
default mode number provided with the assigned user-id (0-999). 

password 
Specifies a password. If the mode you are accessing is the default mode for 
the user-id, the password is not used. Otherwise, if the mode has a password, 
you must specify the correct password. 

type 


Indicates the output report’s type (A through |). 
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report-num 
Identifies the RID number of the output report. When a report already exists 
with a RID number from 1 to 999, the existing report is destroyed and the 
new report is substituted. If the RID number is omitted, the report receives the 
lowest available number within the designated type. 


first-pg-num 
Specifies the number of the first page of the print image file for input to this 
report (1 to 9999999). 


last-pg-num 
Specifies the number of the last page of the print image file for input to this 
report (1 to 9999999). Last-pg-num must have a higher page number than 
first-pg-num. 


NOTES: 


1. When you omit both first and last page values, the whole print image file is 
used as input. 


2. When you specify multiple #OUT control statements, you must specify a page 
number, establish your own-code routine, and specify the last page of the 
report. 


3. When using multiple #OUT control statements, assign the page range to avoid 
overlapping. Some correct and incorrect examples follow: 


Correct Examples Incorrect Examples 
HOUT JDOE,4,,,B,,1,20 HOUT PAYR,4,,,B,,1,50 
HOUT JDOE,4,,,B,,21,60 HOUT ACCT,8,,,C,,30,80 


HOUT ACCT,8,,,C,,70,95 
HOUT ACCT,8,,,C,,96, 120 
HOUT ACCT,8,,,C,,121 


4. When you specify letter E, an eject is produced in the output report 
corresponding to the home skip in the print image file. When printing with the 
interactive PRINT function or MAPLST utility, the eject line on the MAPPER 80 
report occurs after the page changes. 
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3.2.5. Appending Data to Existing Reports 


If you want to append the new data to an existing report instead of replacing it, include 
the following job control statement in the MAPLOD execution stream: 


// SET UPSI,1 


The new data is appended after the last line of the existing report immediately before 
the END REPORT line. 


3.3. MAPLOD EXECUTION 


3.3.1. Execution Environment 

Complete the following items before executing the MAPLOD utility: 

1. Register the department number and user-id, designated by the #OUT control 
statement, with the MAPPER 80 software. Refer to the MAPPER 80 operator and 


coordinator user guide, UP-9737 (current version). 


2. Complete the form generation for the report type specified in the MAPLOD 
execution stream. (RID O must be completed. See Section 2.) 


3. Start the DBMS. Refer to the MAPPER 80 operator and coordinator user guide, 
UP-9737 (current version). 


4. Prepare the input spool file. 

When MAPLOD execution is completed, the status (normal end or error end) displays 
on the system console. On an error end status, bit 1 (4016) of the UPSI byte is set. 
3.3.2. Preparing the Input Spool File 


Before executing the MAPLOD utility, you must store a print image in the spool file and 
hold the spool file by using one of the following procedures: 


1. Include either of these statements in the job control stream that creates the print 
image: 


// SPL HOLD 
or 


// SPL RETAIN 
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2. The operator can use either of these commands: 
HOLD SPL 


or 


PR HOLD (issued to the output writer) 


For further details, refer to the spooling and job accounting concepts and facilities, 
UP-8869 (current version). 


Here is an example that shows how to prepare a print image: 


1 // JOB PRTOUT, ,9000 

2 // DVC 20 

3 // SPL HOLD,,,,,FORMA 

4 // LFD PRNTR 

5 // DVC 50 // VOL MAPPER 
6 // LBL MASTER] // LFD INPUT 
7 // EXEC DATA 

8 // PARAM CONTROL=NO 

9 // PARAM DISPLAY=L 

10 /§ 

11 UDP B=(132,132) ,MKR=(0) 
12 /k 
13 /& 


The // SPL HOLD statement (line 3) with the form name FORMA specifies holding the 
data utility output print image on the spool file. 


The next device assignment set beginning in line 5 assigns the file for input. 

The parameters (lines 8 and 9) after the data utilities execution statement inhibit the 
printing of data utilities control statements and termination information. This reduces the 
excess print image as MAPLOD input. If you can eliminate this information by the 
MAPLOD #FLD control statement, it can be printed. 


Line 11 indicates that the MIRAM file should be printed sequentially. 
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Figure 3-2 shows a sample spool file print image generated by the PRTOUT job stream. & 


820602 BEST 732732 01121 SUNGLASS1 830602 830929 830930 J2060 
811002 HOPP 732733 01122 EYEGLASS9 821222 830121 830122 J2061 
820704 BEST 732734 01123 EYEGLASS? 811111 811211 811212 J2080 
820801 HARK 738756 02212 SUNGLASSS 831214 831215 831217 J2084 
820404 BACH 742312 02225 SUNGLASS3 820406 820410 820430 J2000 
820602 BEST 732732 01121 SUNGLASS1 830602 830929 830930 J2060 
811002 QUIP 732733 01122 EYEGLASS7 821222 830121 830122 J2061 
820704 QUIP 732734 01123 EYEGLASS9 811111 811211 811212 T2080 
820801 HOPP 738756 02212 SUNGLASSS 831214 831215 831217 T2084 
820602 QUIP 732732 01121 SUNGLASS1] 830602 830929 830930 T2060 
811002 SITE 732733 01122 EYEGLASS7 821222 830121 830122 T2061 
820704 QUIP 732734 01123 EYEGLASSO 811212 811211 811212 T2080 
811002 EYES 732733 01122 SUNGLASS7 821222 830121 830122 T2061 
820704 BEST 732734 01123 EYEGLASS9 811212 811211 811212 T2080 


820801 HARK 738756 02212 SUNGLASSS 831214 831215 831217 T2084 


———J 
Oe 


820704 BEST 732734 01123 EYEGLASSS 811212 811211 811212 T2080 
820704 BEST 732734 01123 EYEGLASS7 811111 811211 811212 J2080 
820801 HARK 738756 02212 SUNGLASSS 831214 831215 831217 J2084 
820404 BACH 742312 02225 SUNGLASS3 820406 820410 820430 J2000 
820602 BEST 732732 01121 SUNGLASS1 830602 830929 830930 J2060 


WOrIMnDObAWN +e 


1234567891111111111222222222233333333334444444444555555555566666666 
0123456789012345678901 2345678901 2345678901 2345678901234567 





Figure 3-2. Sample Spool File Print Image 


Each of the example MAPLOD executions in this section use this spool file. 
NOTE: 


This spool file was generated from a MIRAM file, and its print image was created by 
using a data utilities job stream. This is not the only way to create a print image for 
MAPLOD input. You can use any existing application program that produces printed 
output. 


3.3.3. MAPLOD Run Stream Examples 


Once the input spool file is prepared, you are ready to execute the MAPLOD utility by 
using the following run stream: 


JOB jobname 
// DVC 20 // LFD PRNTR 
(include other device assignment sets here) 
// EXEC MAPLOD 
/$ 
(MAPLOD control statements) 





/* 
/& 
// FIN 
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The following are examples of MAPLOD job streams, including utility control statements. 
These streams use the sample spool file (Figure 3—2) generated by the PRTOUT job 
stream. 


NOTE: 

RID numbers in the following MAPLOD job streams must not coincide with existing 
MAPPER 80 reports on the JDOE training data base (mode 102). To avoid overwriting 
the existing report with the same mode, type, and RID, you may set the UPSI byte to 1 


(see 3.2.5) or change the RID number in the execution stream. 


The first sample stream produces a single output report. There is no own-code routine. 


1 // JOB TESTLOD1 

2 // DVC 20 // LFD PRNTR 

3 // EXEC MAPLOD 

4 7s 

5 #INP FORM=FORMA, JOBN=PRTOUT 

6 #FLD 1,2,4,1;4,6,1,2;11,2,4,3 

7 #FLD 14,4,4,8;19,6,1,5;26,5,1,7 
8 #FLD 32,9,4,4;42,6,1,9;49,6,1,10 
9 #FLD 56,6,1,11;63,5,4,12 
10 #0UT JDOE,7,102,,B,40 

ll /* 
12 /& 


The first DVC contro! statement (line 2) allocates the printer. 
The #INP statement (line 5) names the print image FORMA on the spool file as input. 


The #FLD statements (lines 6-9) move the fields on the print image into the output 
report fields, while verifying the data format: 


= The first #FLD statement moves 2 columns of data (beginning with column 1) to 
the first output field; 6 columns of data (beginning with column 4) to the second 
output field; and 2 columns of data (beginning with column 11) to the third output 
field, etc. 


= The second #FLD statement moves 4 columns of data (beginning with column 14) 
to output field 8; 6 columns of data (beginning with column 19) to the fifth output 
field; and 5 columns of data (from column 26) to output field 7. 


= # The third #FLD statement moves 9 columns of data (beginning with column 32) to 
output field 4; 6 columns of data (beginning with column 42) to output field 9; and 
6 columns of data (from column 49) to the tenth output field. 
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The last #FLD statement moves 6 columns of data (from column 56) to output field 
11, and 5 columns of data (from column 63) to the twelfth output field. 


NOTE: 


These #FLD statements are the same on each of the MAPLOD execution examples, 
making it possible for each example to use the same spool file print image. 


The #OUT statement indicates creation of a report with department number 7, 
user-id JDOE, with RID 40, type B, and mode 102. 


Figure 3~3 shows a MAPPER 80 display of the report resulting from the first sample 
MAPLOD execution (TESTLOD1). 


LINE> 1 FMT> RL> SHFT > HLD 
-DATE 83/10/11 12:51:19 TYPE=B_ RID=040 
<<< CORPORATE PRODUCTION STATUS >>> 
BY. PRODUCT 


CHR> HLD LN> 
83/10/10 JDOE 


PSWD> > 
81 LINES> 


. SERIAL. PRODUC. ORDER. 
.NUMBER. COST .NUMBR. 


. PRODUC .PRODUC. 


ACTUAL. 


.SHIP .SPC. 
ORDER .COD. 

830930 

830122 

811212 

831217 

820430 

830930 

830122 

811212 

831217 

830930 

830122 

811212 

830122 

811212 

831217 


830929 
830121 
811211 
831215 
820410 
830929 
830121 
811211 
831215 
8309293 
830121 
811211 
830121 
811211 
831215 


830602 
821222 
811111 
831214 
820406 
830602 
821222 
811111 
831214 
830602 
821222 
811212 
821222 
811212 
831214 


SUNGLASS1 
EYEGLASS9 
EYEGLASS7 
SUNGLASSS 
SUNGLASS3 
SUNGLASS1 
EYEGLASS7 
EYEGLASS9 
SUNGLASSS 
SUNGLASS1 
EYEGLASS7 
EYEGLASSO 
SUNGLASS7 
EYEGLASS9 
SUNGLASSS 


820602 
811002 
820704 
820801 
820404 
820602 
811002 
820704 
820801 
820602 
811002 
820704 
811002 
820704 
820801 


SS 


732732 
732733 
732734 
738756 
742312 
732732 
732733 
732734 
738756 
732732 
732733 
732734 
732733 
732734 
738756 





CC 820704 
ST 820704 
EZ 820801 
AL 820404 
ST 820602 


EYEGLASS9 
EYEGLASS7 
SUNGLASSS 
SUNGLASS3 
SUNGLASS1 


732734 
732734 
738756 
742312 
732732 
END REPORT 


811212 
811111 
831214 
820406 
830602 


811211 
811211 
831215 
820410 
830929 


Figure 3-3. Display of RID 40B Created by TESTLOD1 


811212 
811212 
831217 
820430 
830930 
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e The next example produces multiple output reports. There is no own-code routine. 


WNrOWMWMA bhwNnN re 


Re pe pe 


// JOB TESTLOD2 

// DVCE 20 // LFD PRNTR 

// EXEC MAPLOD 

/S 

#INP FORM=FORMA, JOBN=PRTOUT 

#FLD 1,2,4,1;4,6,1,2;11,2,4,3 

#FLD 14, 4, 4, 8; 19,6,1,5;26,5,1,7 
1 


This job stream (TESTLOD2) is the same as the first example (TESTLOD1) except for an 
additional #OUT control statement. The two #OUT control statements refer to different 
RID numbers. The #OUT control statement in line 10 produces a MAPPER 80 report in 
RID 60 using the print image on pages 1 and 2 of the spool file. The #OUT control 
statement on line 11 uses spool file pages 3 and 4 of the same print image to create 


RID 61. 


Figures 3-4 and 3-5 show MAPPER 80 displays resulting from the second MAPLOD 
& execution (TESTLOD2). TESTLOD2 created RIDs 60B and 61B in mode 102. 


LINE> 1 


FMT > RL> SHFT > HLD CHR> HLD LN> PSWD> 


> 

-DATE 83/10/11 12:55:14 TYPE=B RID=060 83/10/05 JDOE < 62 LINES> 
<<< CORPORATE PRODUCTION STATUS >>> 

BY. PRODUCT ,.SERIAL.PRODUC.ORDER.CUST.PRODUC.PRODUC. SHIP .SHIP .SPC. 

“-NUMBER. COST .NUMBR.CODE. PLAN .ACTUAL. DATE .ORDER.COD. 


. STATUS. 


820602. 
811002 
820704 
820801 
820404 
820602 
811002 
820704 
820801 
820602 
811002 
820704 
811002 
820704 
820801 


——— 


AL 811002 
ST 820704 
EZ 820801 
ST 820602 
AL 811002 


SUNGLASS1 732732 830602 830929 830930 
EYEGLASSS 732733 821222 830121 830122 
EYEGLASS7 732734 811111 811211 811212 
SUNGLASSS 738756 831214 831215 831217 
SUNGLASS3 742312 820406 820410 820430 
SUNGLASS1] 732732 830602 830929 830930 
EYEGLASS7 732733 821222 830121 830122 
EYEGLASSS 732734 811111 811211 811212 
SUNGLASSS 738756 831214 831215 831217 
SUNGLASS1 732732 830602 830929 830930 
EYEGLASS? 732733 821222 830121 830122 
EYEGLASSO 732734 811212 811211 811212 
SUNGLASS?7 732733 821222 830121 830122 
EYEGLASSS 732734 811212 811211 811212 
SUNGLASSS 738756 831214 831215 831217 


EYEGLASS7 732733 821222 830121 830122 J2061 

EYEGLASSS 732734 811111 811211 811212 T2080 

SUNGLASSS 738756 831214 831215 831217 T2084 

SUNGLASS1 732732 830602 830929 830930 T2060 

EYEGLASS7 732733 821222 830121 830122 T2061 
END REPORT 





Figure 3-4. Display of RID 60B Created by TESTLOD2 
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LINE> 1} 


«KK 
. STATUS. 


820704 
811002 
820704 
820704 
811002 
820704 
820801 
811002 
820704 
820801 
820602 
811002 
820704 


811002 


—— 


CC 820704 
ST 820704 
EZ 820801 
AL 820404 
ST 820602 


FMT> 
-DATE 83/10/11 


RL> 


PRODUCT 


“EYEGLASSO 


SUNGLASS7 
EYEGLASSS 
EYEGLASSO 
SUNGLASS7 
EYEGLASS9 
SUNGLASSS 
EYEGLASS? 
EYEGLASSS 
SUNGLASSS 
SUNGLASS1 
EYEGLASS? 
EYEGLASSO 
SUNGLASS7 


EYEGLASS 
EYEGLASS7 
SUNGLASSS 
SUNGLASS3 
SUNGLASS1 


SHFT> HLD 


12:55:18 TYPE=B RID=061 
CORPORATE PRODUCTION STATUS 
BY. 


>>> 


. SERIAL. PRODUC .ORDER. 
-NUMBER. COST .NUMBR. 


°732734- 


732733 
732734 
732734 
732733 
732734 
738756 
732733 
732734 
738756 
732732 
732733 
732734 
732733 


732734 
732734 
738756 
742312 
732732 


CHR> HLD 


LN> 


83/10/05 JDOE 


CUST.PRODUC. 


811212 
821222 
811212 
811212 
821222 
811212 
831214 
821222 
811111 
831214 
830602 
821222 
811212 
821222 


811212 
811111 
831214 
820406 
830602 


PRODUC. 
.ACTUAL. 


g11211 


830121 
811211 
811211 
830121 
811211 
831215 
830121 
811211 
831215 
830929 
830121 
811211 
830121 


811211 
811211 
831215 
820410 
830929 


811212 
830122 
811212 
811212 
830122 
811212 
831217 
830122 
811212 
831217 
830930 
830122 
811212 
830122 


> 
25 LINES> 


.SHIP .SPC. 
ORDER. COD. 


T2080 
T2061 
T2080 
T2080 
T2061 
T2080 
T2084 
J2061 
T2080 
T2084 
T2060 
T2061 
T2080 
T2061 


—~——S— 


811212 
811212 
831217 
820430 
830930 


T2080 
J2080 
J2084 
J2000 
J2060 





END REPORT 





Figure 3-5. Display of RID 61B Created by TESTLOD2 





3.4. YOUR OWN CODE 


3.4.1. What Your Own Code Contains 


Control transfers to your own code when the print image on the spool file is read in. 
You should be careful that no items are transferred when the end of the print image is 
reached. 


The format of transferred data can be a maximum of 171 bytes. Table 3-3 defines the 
position, length, and contents of data transferred to an output report. 
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Table 3-3. Description of Data Transferred to Output Reports 


Mode number for intended report 
output 


Indicates print image processing; the 
zero is transferred to your own 
code and is used as an indicator to 
MAPLOD. 


The length of the print image is set 
in binary (0-160), 


11 Line control code; set as the control 
code for hexadecimal form. position- 
ing instructions: 

r When print image length is 0: 
X‘’BF' means skip to top of 
form. Other than X’BF’ means 
advance a line or skip to fixed 
line. 

s When print image length: is 
not 0: X’B9’ means skip to 
top of form and print. Other 
than X’BS" means advance a 
line or skip to fixed line and 
print. 

























3-17 


The following items describe how to process a spool file, add data from a MIRAM file, 
and exit your own code: 


m= Four indicators (O—3) tell MAPLOD how to handle each line from the spool file. Set 
these indicators in your own code. 


MAPLOD passes one line at a time from the spool file to your own code. Your own 
code then sets the indicator to tell MAPLOD how to handle that line. 


When your own code reads from a MIRAM file, that record becomes the line to be 
processed by MAPLOD. You don’t lose the spool file record; however, MAPLOD 
processes it on the next call to your own code when the MIRAM file is not read. 





UP-9736 SPERRY OS/3 3-18 
MAPPER 80 FORMS GENERATION AND UTILITIES 





MAPLOD cails your own code once for each line to be processed. When there are 
50 lines in the spool file and 25 records in the MIRAM file, MAPLOD calls your 
own code at least 50 times and once more for every record read from the MIRAM 
file. Your own code sets the indicator each time own code is called. Indicator 
settings and their meanings follow. 


QO Indicates that MAPLOD verifies the input line from the spool file or the MIRAM 
file and sends the input line to the MAPPER 80 report specified on the #OUT 
control statement. At verification, MAPLOD checks the data format or each 
field to assure that they match the RID O of the MAPPER 80 report. When 
there is a mismatch, MAPLOD doesn't place the line in the MAPPER 80 report. 
After MAPLOD processes that line, it reads the next line and passes control to 
your own code. 


1. Indicates that MAPLOD verifies and sends the line to the MAPPER 80 report. 
However, MAPLOD doesn’t read the next spool file record. Instead, MAPLOD 
passes control to your own code. 


2 ‘Indicates that MAPLOD ignores processing the current line. It reads the next 
line from the spool file and returns control to your own-code routine. Use this 
indicator to skip lines on the spool file. 


3 Tells MAPLOD to go to the next #OUT control statement. This new #OUT 
control statement changes the mode, type, or RID number. When MAPLOD 
completes processing the current report, it begins to send the new report 
specified on the new #OUT control statement. Control then passes to your 
own code. 





If a new #OUT control statement doesn’t exist, MAPLOD stops processing the 
current report and doesn’t return control to your own code. MAPLOD 
execution terminates after placing an *** END REPORT *** line in the MAPPER 
80 report. 


m = §=©Change the length of line and the line control code via your own code. 


m= Your own code can add data to the report from internal calculation, a MIRAM file, 
etc. MAPLOD treats that data as if it were read from the spool file. 


m™ You can expand the line from the spool file to a size of 1024 bytes and return to 
MAPLOD. Because the line returned to MAPLOD can be 1024 bytes and can be 
sent out as a MAPPER 80 report, you must watch the line. 


m= MAPLOD can process the MIRAM file without any input from the spool file when 
you use indicator 1 and read from a MIRAM file; however, a spool file must always 
exist even though your own code may not use it. 


= Don't change the mode number, type, and RID number in your own code. The 
#OUT control statement contains this information, and your own code _ should 
conform. 
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3.4.2. How to Use Your Own Code 


Your own code handles several types of processing: 


Adding fields not in the print image to the report 


Defined constants, calculation results, etc, throughout the print image reference 
information from your file (such as names). You can add other similar information 
before control returns to MAPLOD. In this case, use processing indicator O. 


Eliminating unnecessary lines 


Use your own code when data format verification was performed only by a #FLD 
control statement and when a large number of lines were not cleared. Unnecessary 
output lines are selectively cleared and control returns to MAPLOD with processing 
indicator 2. 


Combining multiple lines into one line in the report 


After making one report line, control returns to MAPLOD via the processing 
indicator 2. After the print image changes to one line, control returns to MAPLOD 
with the O indicator. 


Choosing a page for multiple report production in one execution 


When you specify multiple #OUT control statements, your own code should decide 
in advance the print image page number for an #OUT control statement and 
whether to switch reports in the middle of a page. You can use processing 
indicator 3. 


Producing a MAPPER 80 report directly from a user file 
Within your own code, the file is read and handled as the print image. Indicator 1 


returns control to MAPLOD. When the file is completely processed, indicator 3 may 
be used to return to MAPLOD. 


You must change packed format and decimal data in your file to display format for 
future handling. However, when control passes to MAPLOD with the user file records 
handled as a print image, actual editing of the output report is unnecessary. A maximum 
of 1024 bytes of data are transferred to MAPLOD and you can assign up to 1024 input 
field positions with #FLD control statements. Thus, in your own code, only the display 
format is converted. To choose the necessary output fields and designate their order on 
the report, use the #FLD control statement. 


With this type of processing, it is necessary to reserve a minimum of a 1-line print 
image on the spool file. (The content of the print image is not important.) 


In addition, because the DMS file in MAPLOD (MAPPER 80 data base) is being used, 
you must be careful that your own file doesn’t use the DMS file. 
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3.4.3. Executing Your Own Code 


Prepare your own code for the MAPLOD utility as a called program and place it in the 
same load library where MAPLOD resides. Your own-code module is linked to MAPLOD 
at execution time through the OS/3 dynamic load function. Whenever you use own 
code with MAPLOD, you must specify the job main storage size. The exact size needed 
is the sum of MAPLOD plus your linked own code size. 


3.4.4. Example of Your Own Code 
The following explanation describes two applications of user own code: 


m Job stream TESTLOD3 creates multiple reports whose data lines are determined by 
the ZOWNCD own-code routine (Figure 3-6). 


m Job stream TESTLOD4 also creates multiple reports using the same print images 
controlled by a different own-code routine (YOWNCD) (Figure 3-8). However, in 
addition to the spool file, this job uses a MIRAM file as input to MAPLOD. 


The TESTLOD3 job sends each record of the print image to own code ZOWNCD (Figure 
3-6). By setting an indicator (O—3), this own code determines how MAPLOD processes 
each line of the print image. 





1 // JOB TESTLOD3, ,18000 
2 // DVC 20 // LED PRNTR 
3 // DVC 200 // UID $Y$MAS // LFD WORKST 
4 // EXEC MAPLOD 
5 7S 
6 #INP FORM=FORMA, JOBN=PRTOUT 
7 #OWN ZOWNCD 
8 #FLD 1,2,4,1:4,6,1,2;11,2,4,3 
9 #FLD 14,4,4,8;19,6,1,5;26,5,1,7 
10 #FLD 32,9,4,4;42,6,1,9:49,6,1,10 
11 #FLD 56,6,1,11;63,5,4,12 
12 #OUT JDOE,7,102,,B,80 
13 #OUT JDOE,7,102,,B,82 
14 /k 
15 /& 
NOTE: 


The TESTLOD3 job stream assigns a workstation because the own code requires it. 
Use TESTLOD3 job stream to execute the first sample own-code routine shown in 
Figure 3-6. In this MAPLOD user own-code run, the user determines the resulting data 
in RIDs 80B and 82B by the indicator he enters at the workstation. (See Figure 3~6, line 
56.) 





The ZOWNCD own-code routine shown in Figure 3—6 uses a workstation to display 
information so that you can see the print image being processed. This example also 
clarifies how to use MAPLOD indicators in your own code. 
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To do this, the own code displays a prompt message to accept the indicator from the 
workstation (in this example) before each record is processed. The indicator tells 
MAPLOD how to process each record (see 3.4.1). There are other ways of setting 
indicators in your own code (e.g., an IF statement). 


JOB MPLDOWN1 

DVC 20 // LFD PRNTR 
WORK] 

WORK2 

WORK3 

EXEC COBL74 


IDENTIFICATION DIVISION. 

PROGRAM-ID. MYOWN. 

*XREMARKS. THIS PROGRAM ACTS AS A SUBROUTINE TO 
x A MAPLOD JOB USED TO CREATE A MAPPER 
x REPORT FROM A SPOOLFILE. 
KK KK KKK KK KKK KKK KKK KK KK KK 
* 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. UNIVAC-0S3. 

OBJECT-COMPUTER. UNIVAC-0S3. 

SPECIAL-NAMES. 

SYSWORK IS WRKSTN ASSIGN TO WORKST. 


WOAH LhWON eH 


* 
KKK RK KK KKK KKK KKK KK KK KK KKK 
x 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
01 PROGRAM-INDICATOR. 
05 REC PIC 9(3) VALUE ZEROS. 
05 LIVE-INDIC PIC 9 VALUE ZERO. 
LINKAGE SECTION. 
01 OWN-DATA. 
MODE-NO PIC 9(3). 
TYPEX PIC X. 
RID-NO PIC 9(3). 
INDICATOR PIC 9. 
IMAGE-LENGTH PIC 9(4) COMP. 
CONTROL-CODE PIC X. 


PRINT- IMAGE PIC X(90). 
* 


KKK KKK KK KK KK KKK KKK KK KK KK 


x 
PROCEDURE DIVISION USING OWN-DATA. 
* 


KKK KKK KKK KKK KKK KKK KKK KKK 

* 

MAIN-LINE. 
DISPLAY '* * * x x x 
DISPLAY 'ENTERI 
MOVE 102 TO MODE-NO. 
MOVE 'B' TO TYPEX. 
MOVE 90 TO IMAGE-LENGTH. 
COMPUTE REC = REC + 1 
DISPLAY 'PRINT IMAGE NUMBER ' . REC . ' IS:' UPON WRKSTN. 
DISPLAY PRINT-IMAGE UPON WRKSTN. 


UPON WRKSTN. 
U 


x kK kK kek *! 
WN COD E' UPON WRKSTN. 





Figure 3-6. ZOWNCD Own-Code Routine Using Spool File Input and MAPLOD Indicators (Part 1 of 2) 
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DISPLAY ‘ENTER PROCESSING INDICATOR' UPON WRKSTN. 












56 ACCEPT LIVE-INDIC FROM WRKSTN. 

57 MOVE LIVE-INDIC TO INDICATOR. 

58 DISPLAY ‘INDICATOR IS SET TO ' , INDICATOR UPON WRKSTN. 

59 IF LIVE-INDIC = 3 THEN 

60 DISPLAY 'FINISHED WITH THIS #0UT STATEMENT.' UPON WRKSTN 
61 DISPLAY 'WILL PROCESS NEXT ¥#OUT OR END.' UPON WRKSTN. 

62 DISPLAY 'EXITING OWN CODE' UPON WRKSTN. 

63 OUT-EXIT. 






EXIT PROGRAM. 


DVC RES // LBL SYSLOD // LFD LOD 
67 // WORK) 

68 7/ WORK2 

69 // EXEC LNKEDT 
PARAM OUT=LOD 















LOADM ZOWNCD 
INCLUDE MYOWN 





Figure 3-6. ZOWNCD Own-Code Routine Using Spool File Input and MAPLOD Indicators (Part 2 of 2) 


The linkage section in line 30 defines data transferred to MAPLOD. The items of data 
transferred to MAPLOD are defined in lines 31-38. The item, PRINT-IMAGE, on line 38 
allows you to adjust the line length to fit the record size of the record sent to MAPLOD. 





In line 42, the procedure division uses the linkage section group item, OWN-DATA. @ 
Lines 49-51 move mode number, type, and line length to the linkage section. Line 57 

moves the indicator setting received from the workstation to the linkage section. When 

print image line processing is complete, the EXIT PROGRAM statement exits from the 

own-code routine. 


Lines 66-74 show the link edit step to create the own-code load module that must be 
placed in the same load library where MAPLOD resides. In this example, $Y$LOD is the 
load library. 


The TESTLOD4 job uses the same spool file as the previous example. In addition, it 
uses a MIRAM file as input to MAPLOD (lines 3 and 4) and, in line 8, it uses a different 
own-code routine (YOWNCD) (Figure 3-8). 





i // JOB TESTLOD4, ,15000 

Zz // DVC 20 // LFD PRNTR 

3 // DVC 50 // VOL MAPPER 

4 // LBL MPLDTAIN // LFD MPLIN 

5 // EXEC MAPLOD 

6 /$ 

7 #INP FORM=FORMA, JOBN=PRTOUT 

8 #OWN YOWNCD 

9 #FLD 1,2,4,1;4,6,1,2;11,2,4,3 
10 #FLD 14,4,4,8;19,6,1,5;26,5,1,7 
ll #FLD 32,9,4,4;42,6,1,9;49,6,1,10 
12 #FLD 56,6,1,11;63,5,4,12 
13 #OUT JDOE,7,102,,B,120 
14 7k 


15 /& 
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@ Figure 3—7 shows an editor display of the MIRAM input file used by TESTLOD4 and the 
YOWNCD own code (Figure 3-8). 


ST8 2060 2JHSUNGLASS1 73273201121 BEST830602830929830930J2061 
AL811002SGSUNGLASS1 732733011 22BACH821222830121830122J2062 
S5T820704KCSUNGLASS173273401123BACH81111181121181121232083 
EZ820801RRSUNGLASS47 387560221 ZHARK831 214831215831217J32084 
AL820404RXSUNGLASS974 231 202225BEST820406820410820430J32005 


ST82060 ZJHSUNGLASS1 73273201121 BEST830602830929830930J2066 
AL811002SGEYEGLASS173273301122BACH8 212228301 2183012232067 
5T820704KCEYEGLASS1 7327 3401123BACH811111811211811212T2088 
EZ820801RREYEGLASS47 387560221 ZHARK831214831215831217T2089 
ST8 2060 ZJHEYEGLASS1 73273201121 BE5T830602830929830930T2060 


CWHOUYHDMHMLON + 


es 





Figure 3-7. Editor Display of MIRAM Input File Used by TESTLOD4 


The own-code routine (Figure 3—8) obtains records from both the spool file and MIRAM 
data file. 


JOB MPLDOWN2 

DVC 20 // LFD PRNTR 
WORK] 

WORK2 

WORK3 

EXEC COBL74 


IDENTIFICATION DIVISION. 
PROGRAM-ID. ANOWN. 

*XREMARKS. THIS PROGRAM ACTS AS A SUBROUTINE TO 

A MAPLOD JOB USED TO CREATE A MAPPER 

REPORT FROM A SPOOLFILE. DATA FROM A 

USER MIRAM FILE IS ALSO INPUT TO THE 

MAPPER REPORT BEING CREATED. 

XK KKK KKK KKK KKK KKK KK KK KK 


Worn cntwrr 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-0S3. 
OBJECT-COMPUTER. UNIVAC-OS3. 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT MPLDTAIN 
ASSIGN TO DISK-MPLIN-F. 
*k 
xk KwK KKK KK KK KK KKK KKK KKK KKK 
* 
DATA DIVISION. 
FILE SECTION. 
e FD MPLDTAIN 
LABEL RECORD IS STANDARD. 





Figure 3-8. YOWNCD Own-Code Routine Using Spool and MIRAM Input Files (Part 1 of 3) 
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INPUT-RECORD. 

05 STATUS-CODE-IN X(2). 

05 STATUS-DATE-IN 9(6). 

05 BY-IN-IN X(2). 
PRODUCT-TYPE-IN PIC X(9). 
SERIAL-NUMBER-IN PIC 9(6). 
ORDER-NUMBER-IN PIC 9(5). 
CUSTOMER-CODE-IN PIC X(4). 
PRODUCTION-PLAN-IN PIC 9(6). 
PRODUCTION-ACTUAL-IN PIC 9(6). 
SHIPPING-DATE-IN PIC 9(6). 
SHIPPING-ORDER- IN PIC X(5). 

FILLER PIC X(199). 
WORKING-STORAGE SECTION. 
01 PROGRAM-INDICATOR. 

05 REC-CNT PIC 9(3) VALUE ZERO. 

05 OPN-FIL PIC XXX VALUE 'YES'. 

05 CLS-FIL PIC XXX VALUE ' NO'. 

WORK-RECORD. 

05 STATUS-CODE PIC X(2) VALUE SPACES. 

05 FILLER PIC X VALUE SPACE. 

05 STATUS-DATE PIC 9(6) VALUE ZEROS. 

05 FILLER PIC X VALUE SPACE. 

05 BY-IN PIC X(2) VALUE SPACES. 

05 FILLER PIC X VALUE SPACE. 

05 CUSTOMER-CODE PIC X(4) VALUE SPACES. 

05 FILLER PIC X VALUE SPACE. 

05 SERIAL-NUMBER PIC 9(6) VALUE ZEROS. 

05 FILLER PIC X VALUE SPACE. 

05 ORDER-NUMBER PIC 9(5) VALUE ZEROS. 

05 FILLER PIC X VALUE SPACE. 

05 PRODUCT-TYPE PIC X(9) VALUE SPACES. 

05 FILLER PIC X VALUE SPACE. 

05 PRODUCTION-PLAN PIC 9(6) VALUE ZEROS. 

05 FILLER PIC X VALUE SPACE. 

05 PRODUCTION-ACTUAL PIC 9(6) VALUE ZEROS. 

05 FILLER PIC X VALUE SPACE. 

05 SHIPPING-DATE PIC 9(6) VALUE ZEROS. 

05 FILLER PIC X VALUE SPACE. 

05 SHIPPING-ORDER PIC X(5) VALUE SPACES. 

LINKAGE SECTION. 
01 OWN-DATA. 

02 MODE-NO PIC 9033: 

02 TYPEX PIC X. 

02 RID-NO PIC 9(3). 

02 INDICATOR PIC 9. 

02 IMAGE-LENGTH PIC 9(4) COMP. 

02 CONTROL-CODE PIC X. 

02 PRINT-IMAGE PIC X(90). 





* 
KKK KK KK KKK KK KKK KKK KKK KKK 
x 


PROCEDURE DIVISION USING OWN-DATA. 
* 


Kk KK KKK KKK KK KK KKK KK KK KKK 
x 





Figure 3-8. YOWNCD Own-Code Routine Using Spool and MIRAM Input Files (Part 2 of 3) 
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MAIN-LINE. 
IF OPN-FIL = 'YES' THEN PERFORM OPEN-FILE-RTN. 
COMPUTE REC-CNT = REC-CNT + 1. 
IF REC-CNT < 11 THEN PERFORM PROCESSING-LOOP. 
IF CLS-FIL = 'YES' THEN PERFORM CLOSE-FILE-RTN. 
MOVE 102 TO MODE-NO. 
MOVE 'B' TO TYPEX. 
MOVE 90 TO IMAGE-LENGTH. 
IF REC-CNT < 10 THEN MOVE 1 TO INDICATOR. 
IF REC-CNT > 9 THEN MOVE 0 TO INDICATOR. 
OUT-EXIT. 
EXIT PROGRAM. 
x 
KK Re KKK KKK KKK KKK KKK KKK KKK 
x 
OPEN-FILE-RTN. 
OPEN INPUT MPLDTAIN. 
MOVE ' NO' TO OPN-FIL. 


KKK KKK KKK KKK KKK KKK KKK KKK 
x 


PROCESSING-LOOP. 
READ MPLDTAIN. 
IF REC-CNT = 10 THEN MOVE 'YES' TO CLS-FIL. 
MOVE STATUS-CODE-IN TO STATUS-CODE. 
MOVE STATUS-DATE-IN TO STATUS-DATE. 


@ MOVE BY-IN-IN TO BY-IN. 

MOVE PRODUCT-TYPE-IN TO PRODUCT-TYPE. 
MOVE SERIAL-NUMBER-IN TO SERIAL-NUMBER. 
MOVE ORDER-NUMBER-IN TO ORDER-NUMBER. 
MOVE CUSTOMER-CODE-IN TO CUSTOMER-CODE. 
MOVE PRODUCTION-PLAN-IN TO PRODUCTION-PLAN. 
MOVE PRODUCTION-ACTUAL-IN TO PRODUCTION-ACTUAL. 
MOVE SHIPPING-DATE-IN TO SHIPPING-DATE. 
MOVE SHIPPING-ORDER-IN TO SHIPPING-ORDER. 


MOVE WORK-RECORD TO PRINT-IMAGE. 
x 


Ke KR KK KK KK KK KKK KK KK KKK KK 
* 
CLOSE-FILE-RTN. 

CLOSE MPLDTAIN. 

MOVE ' NO' TO CLS-FIL. 


DVC RES // LBL SYSLOD // LFD LOD 
WORK] 

WORK2 

EXEC LNKEDT 

PARAM OUT=LOD 


LOADM YOWNCD 
INCLUDE ANOWN 





@ Figure 3-8. YOWNCD Own-Code Routine Using Spool and MIRAM Input Files (Part 3 of 3) 
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INPUT-RECORD defined on lines 33-45 describes the record layout of the MIRAM file. 
YOWNCD moves data read from the MIRAM file to the WORK-RECORD area in 
working-storage (lines 51-72). Before moving this data to the WORK-RECORD (lines 
113-123), your own code could also perform internal calculations and send the results 
to WORK-RECORD in working-storage. 


The WORK-RECORD layout matches the #FLD statements in the MAPLOD execution 
stream (TESTLOD4) because own code moves the WORK-RECORD to the linkage 
section (line 124). This record replaces the PRINT-IMAGE line in the print buffer, and 
MAPLOD verifies it as a print image line. 


Own-code logic sets the indicators (lines 97 and 98). Ten records are in the input 
MIRAM file, and the own code uses a counter to determine the indicator settings (lines 
92, 97, and 98). 


The own code first sends the 10 MIRAM records followed by the 75 PRINT-IMAGE 
records (lines 92 and 110-124) to the MAPPER 80 report. After own code reads the 
10 records from the MIRAM file, it closes the file (lines 93 and 112). Then, own code 
sets the indicator to O and directs the print image records to the MAPPER 80 report 
(line 124). 


The linkage section defines, in a single group item (lines 74-81), the data transferred to 
MAPLOD. In line 85, the procedure division uses the linkage section group item, 
OWN-DATA. When processing is complete, the EXIT PROGRAM statement (lines 
99-100) exits from the own-code routine. 


Lines 132—140 show the link edit step to create the own-code load module that must 
be placed in the same load library where MAPLOD resides. In this example, $Y$LOD is 
the load library. 


Figure 3-9 is a MAPPER 80 display of the resulting RID (120B) created by TESTLOD4. 
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LINE> 1 FMT> RL> SHFT> HLD 
-DATE 83/10/11 14:17:17 TYPE=B RID=120 
<<< CORPORATE PRODUCTION STATUS >>> 
BY. PRODUCT .SERIAL.PRODUC.ORDER.CUST.PRODUC.PRODUC. .SHIP .SPC. 
-IN. TYPE .NUMBER. COST .NUMBR.CODE. PLAN .ACTUAL. .ORDER.COD. 
Kes sseec5 55, Seeeesans  seesss, SSSres  SSsss Sess SS SSas SS Ssss  Sesses fesse sss, 


CHR> 
83/10/11 


HLD LN> 
JDOE 


PSWD> 


> 
91 LINES> 


820602 
811002 
820704 
820801 
820404 
820602 
811002 
820704 
820801 
820602 
820602 
811002 
820704 
820801 
820404 


—ZJ 


CC 820704 
ST 820704 
EZ 820801 
AL 820404 
ST 820602 


JH 
SG. 


SUNGLASS1 
SUNGLASS1 
SUNGLASS1 
SUNGLASS4 
SUNGLASS9 
SUNGLASS1 
EYEGLASS1 
EYEGLASS1 
EYEGLASS4 
EYEGLASS1 
SUNGLASS1 
EYEGLASSS 
EYEGLASS7 
SUNGLASSS5 
SUNGLASS3 


EYEGLASS9 
EYEGLASS7 
SUNGLASSS 
SUNGLASS3 
SUNGLASS1 


732732 
732733 
732734 
738756 
742312 
732732 
732733 
732734 
738756 
732732 
732732 
732733 
732734 
738756 
742312 


732734 
732734 
738756 
742312 
732732 
END REPORT 


830602 
821222 
811111 
831214 
820406 
830602 
821222 
811111 
831214 
830602 
830602 
821222 
811111 
831214 
820406 


811212 
811111 
831214 
820406 
830602 


830929 
830121 
811211 
831215 
820410 
830929 
830121 
811211 
831215 
830929 
830929 
830121 
811211 
831215 
820410 


811211 
811211 
831215 
820410 
830929 


830930 
830122 
811212 
831217 
820430 
830930 
830122 
811212 
831217 
830930 
830930 
830122 
811212 
831217 
820430 


811212 T2080 
811212 J2080 


831217 
820430 
830930 


J2084 
J2000 
J2060 





Figure 3-9. Display of RID 120B Created by TESTLOD4 MAPLOD Execution with YOWNCD 
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3.5. MAPLOD ERROR MESSAGES 





Table 3—4 lists MAPLOD error messages. 


Table 3-4. MAPLOD Error Messages 


Error Message Error Message Text 
Number 


OPEN ERROR (SPOOL IMAGE FILE) 
OPEN ERROR (MAPPER DATA BASE) 
MISSING INPUT PARAMETER 

OWN CODE LOAD ERROR 

NO #INP CARD 

NO FORM= PARAMETER IN #INP CARD 
INVALID #INP CARD 

PARAMETER IS NOT #FLD CARD 

ILLEGAL LOCATION IN #FLD 

ILLEGAL LENGTH IN #FLD 

ILLEGAL FORMAT IN #FLD 

ILLEGAL ITEM-NUMBER IN #FLD 
PARAMETER IS NOT #0OUT CARD 

ILLEGAL USER-ID IN #OUT 

ILLEGAL DEPARTMENT -NUMBER IN #OUT 
ILLEGAL MODE-NUMBER IN #OUT 
ILLEGAL PASSWORD IN #OUT 

ILLEGAL TYPE-NUMBER IN #OUT 
ILLEGAL REPORT-ID IN #OUT 

ILLEGAL START PAGE# IN HOUT 
ILLEGAL END PAGE#H IN #OUT 

ILLEGAL EJECT-CODE IN #OUT 
REQUESTED USER-ID DOES NOT EXIST 
REQUESTED MODE DOES NOT EXIST 
INVALID MODE PASSWORD 

RID-@ DOES NOT EXIST 

RID-@ IS INCORRECT 
ITEM-NUMBER(nn) DOES NOT EXIST 
FIELD-FORMAT IS UNMATCHED (nn) 
FREE RID DOES NOT EXIST IN THE TYPE 
REQUESTED RID DOES NOT EXIST 
LINE# OF OUTPUT REPORT IS OVER THE LIMIT 
ILLEGAL DATA RETURNED FROM USER OWN CODE 
READ ERROR (SPOOL IMAGE FILE) 
SPOOL IMAGE RECORD IS INCORRECT 
ACCESS OF DMS HAS DEAD-LOCK, RETRY 
LACK OF DMS SPACE, EXPAND THE SPACE 
MAPLOD HAS FAILED 

MPDP HAS FAILED 

PROGRAM CHECK OCCURRED IN OWN CODE 
LAST ROLL BACK HAS FAILED 
ABNORMAL COMPLETION 

REPORT COMPLETE (nnnn LINES) 
NORMAL COMPLETION 





System error codes that may occur during MAPLOD execution: 





998 — Program check occurred in user own code. 
999 — DMS error other than deadlock or no space occurred in MAPLOD. 
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4. MAPLST Utility 


4.1. WHAT THE MAPLST UTILITY DOES 


MAPLST is a batch utility program that prints MAPPER 80 reports. It is similar to the 
PRINT (PR) manual function used in the MAPPER 80 interactive environment. Figure 4—1 


shows a control flow chart of the MAPLST utility. 






MAPPER 80 
DATA 
BASE 







UTILITY 
CONTROL 
STATEMENTS 








MAPLST 
UTILITY 


MAPPER 80 
REPORT 


MAPPER 80 
LEGEND: REPORT 


--— = Optional 


Figure 4—1. Control Flow for MAPLST Utility Execution 
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The MAPLST utility performs the following: 
m Sends MAPPER 80 reports from the data base to the printer 
m §©Prints multiple reports in one execution 


= Specifies the first column of an output line. This is similar to the interactive 
modified format for the PR manual function. 


m Places MAPPER 80 report header lines at the beginning of each page of a report 


m= Employs your own code to process MAPPER 80 reports; however, your own code 
cannot modify the print content or update the input report. 


The MAPLST utility assumes the page size to be 66 lines per page. Fifty of the 66 lines 
are printed lines with a margin at the top and bottom. The MAPLST utility starts 
printing a new page under two conditions: 


m= When there are more than 50 lines in the report to be printed, MAPLST executes a 
top of form because it only prints 50 lines per page. 


m When MAPLST encounters an .EJECT in the job control stream 


4.2. MAPLST CONTROL STATEMENTS 
The MAPLST utility control statements designate attributes of the report printed by 
MAPLST, your own code, printing of report header lines, line spacing, etc, using the 
following five control statements: 

#OWN Indicates the linkage and release of your own code 

#HDL Indicates the number of header lines 

#SPC Indicates the line spacing on the output report 


#LST Specifies which report is to be printed 


#END Specifies the termination of the MAPLST utility 
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4.2.1. Including Your Own Code in MAPLST Utility (FOWN) 

The #OWN control statement indicates the linkage and release of your own code and 
MAPLST utility. Use this statement only when employing your own code. Use multiple 
#OWN statements to change to another own-code routine during execution. Use the 
statement anywhere in the control stream as long as it precedes the #END statement. 
The new own code takes effect on the next appearance of a #LST statement. 

Format: 


#HOWN phasename 


where: 
phasename 
Identifies the phasename provided at link time for your own code, a loadable 
program that was compiled and linked in a separate job. 


If you omit phasename and your own code is released in the MAPLST 
execution, your own code used to that point is ignored. 


If your own code is changed or released, the own code used to that point 
cannot be released from main storage. 


NOTE: 

When you specify the amount of main storage allocation to the job on the JOB 

job control statement, include the main storage needed for your own code. 
4.2.2. Specifying Continuous Headings on MAPPER 80 Reports (#HDL) 


The #HDL control statement specifies continued printing of MAPPER 80 report header 
lines on and after the second page of the report being printed. 


You can use multiple statements anywhere before the #END control statement. Header 
lines are printed when the next #LST statement appears. 


Format: 


HHDL n 
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where: 


Specifies O to 5 header lines. Header lines following line 1 of the report appear 
at the top of each page. You specify how many of these lines are to be 
printed (O-5). 


Specifying O causes the previous number of lines specification to be ignored, 
and headers occur only on the first page. 


When MAPLST executes, the number of lines is set to O. If you omit the #HDL 
control statement, headers only appear on the first page. Lines designated by 
the #HDL statement are single-spaced when printed. Note that #SPC control 
statement specifications (4.2.3) have no effect on these header lines. 


4.2.3. Controlling Line Spacing on MAPPER 80 Printed Reports (#SPC) 


The #SPC control statement determines the line spacing for the printed report. The 
default is single-spacing. 


You can use multiple #SPC statements anywhere before the #END control statement. 
The desired data is printed when the first #LST control statement appears. 


Format: 


#SPC n 


where: 


Specifies the space between lines is from 1 to 9 (i.e., double-spacing is 2 and 
single-spacing is 1). Lines designated by the #HDL statement are not affected 
by this control statement. 


4.2.4. Specifying the Report for Printout (#LST) 


The #LST control statement specifies the report to be printed and the print position 
(column number) in the line image of the report. 


The #LST statement may appear more than once in the job control stream as se as it 
appears before the #END statement. 


Execution of the #OWN, #HDL, and #SPC statements preceding the #LST statement 
begins when the #LST statement is encountered. 


Format: 


#LST mmmtrrr[Esss] Ceee] 
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Oo] where: 


mmm 
Specifies the mode number of the report to be printed; both even and odd 
modes are available. This value must be 3 digits; leading zeros are required, 
e.g., 4 is 004. 

t 
Indicates the type of the report to be printed (A-l). 

rer 
Is the report or RID number. This value must be 3 digits, and leading zeros are 
required. 

sss 


Indicates the first column number in the data line of the printed report. Specify 
this parameter using three digits with leading zeros. The default value is 1. 


eee 
Is the last column in the data line of the report to be printed. Three digits must 
be specified, and leading zeros are required. 


@ 4.2.5. Terminating MAPLST Utility Processing (#END) 


The #END control statement terminates the MAPLST utility processing. The #END 
statement must appear at the end of the job control stream. 


4.3. MAPLST EXECUTION 


When you are ready to print MAPPER 80 reports, you use the following job control 
stream to execute the MAPLST utility: 


// JOB jobname 
// DVC 20 = // LFD PRNTR 
(include other device assignment sets here) 
// EXEC MAPLST 
/$ 
(utility control statements) 
/* 
/& 
// FIN 


Remember, the DBMS job must be started before the MAPLST utility executes. 


execution of the MAPLST utility that produces a listing of a MAPPER 80 report (RID 2B 


e The following sample job control stream shows the statements needed for a simple 
in mode 102). 
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NOTE: 


MAPPER 80 reports being processed in the following MAPLST sample job streams are 
contained in the JDOE training data base delivered with the MAPPER 80 system. 


// JOB TESTLST1 

// DVC 20 // LFD PRNTR 
// EXEC MAPLST 

/S 

#HDL 4 

#LST 102B002 

#END 

/*® 

/& 


WOOornn OO fwh eH 


Figure 4-2 shows the listing that results from the previous sample execution of 
MAPLST. 


(a) + MAPPER-80 REPORT IMAGE LIST *#* MODES1C2 TYPESB RIDHECC2 RCS72090 AITST:O0T-C9C OATE 83/09/28 PAGE- 1 
eOATE 83/09/16 13233225 TYPE=@ RID=GCzZ 83/07/15 JICCE é RENTS “¢(2) 


0 <<<) CORPORATE PRODUCTION STATUS >>> 
SST.STATUS BY. PRODUCT «SERIAL PRODUC .ORDER .CUST.PRUDUC PRODUC. SHIP .SnIP .SPC. . 
CO. DATE .IN. TYPE oNUPBER. COST .NUPBR.CODE. PrAW .ACTLAL. DATE .CKDER.COO, REMARKS . 
Ome secane tt SRE SS srak  SSSese TE SSHE Sarat SSSS, ST Sess TET LSS TSaT se, Tsssr TST TSR BTTAEr, 
SIP 27492242LS SBLACKBOX12 436767: TOGTEDZAMCOD74 1203 2761226: 
SPA TOO TAMCOs 7492072741225: B) 
TUGISFSINIR: 749298 57412995 
3 sGh7SSIARCO?: 3 
PLACKBOXS 675221: 297SHTIFEDSZ7E UIST: 
aerccereaie eee r94OGOZAMCO2 7612 c2 27612222 
tSGQ37SFERSS 24 UALTSPOVZEO274V 275 Se73E: 
LACKBOX: 768061: PEGASPIFEDSS 249207 S74VE0FS7492U2286537: 
BLACKBOX6:777324: TSH252TD COSTE V2 7OTECESTOIALS fF eS3P 3 
SSSPSTIARCOS PS DZ s7OVZ02 27612075 ScS34z 
sO9TEDIINTRE7G92 05 274127€2 
TFG%42 FEDS: 7 3 
2S97252INTR: 3 : 
sS7SGTIFEOS 2 7©ute?: : 
TPQISVSAMCO® 749747 27412772 
S4Q23TIINTRSPEV UT S7OT ENVIADA? 
DIG TEDIFEDSS 744205 274TETE2 
sS276RSFEOS: : 
27h2722 FEDS 2741201 T7QVEEPoiZe? 
2SS755 AM CO: 3 
s967E22USSC: : 
. s 3 27H7ETZUSSCS7442952 74117 
r1P 3749276 H 2 3 sPEQTEDSFEDS 741296 2741610: 
sIF 3746927 F sE57Z°7: TPQ TETSUSEC S74 1259 S74TE 
rSH274720 3 é TEA23VAMCOL7SU2U9 7 H1e 
7$C:75C110 28 SL SS ee Us 2S72422USSC278UI16: 
TESTES SFEDS 2769215: eoenel as 
REENBOXS: 9G 75TSFEDS: : 
SGREENCC EY: 6UE126: TPGTESTFEDS S747 CE 1741227 = 
2S66522AR CO: : 


pean et ae ae oe 


fetes 


. 
20 08 08 Ao ee oe 28 OF oe Oe 88 oe ne Oe OF He we oe On te 88 oe 





rere ey) 


ee ee ees 


reste LSUSEC S717 16 AVENE: 

TP 7876 sUSSC 7s LIVLt: 

297542 2USSC 27 utc: 2 

SOGSEDSINTRS PLAU7 CF PAT ETC? 
rOR274792196 29575720106: 3 
2$€2750410 rOSSCS FEDS 2 7Sutsl: 

254652 cAMCOL 761207 272 at ers 2761206 
5OR3741228 TSGECS SEEDS: 3 
28c375C1C5 ZGRFENBOX® : 77681: 2O7SCOUSINTR S75UILE: 
TIP2749225 SGREENBOXS 27509732 TPOTEVIFEDS 2 7412c%: 749225: 
2$C:75C110 ZGRFENBOX®2975484: tOSCKTIAMCOLTSUTIC: 
FOR2746C31G 2LSZGRFENBOXKS: : 2995512 amCO: : 

eeeve END REPORT wecce 


20 08 OF 28 OF Oe a8 fe Oe on be OF He oF ae OF OF OF on OF 88 Oe ae oe Oe 
wee 


0-48 nn 98 08 gee OF a8 a 00 On an ge tn a8 8 ay 08 Oe on an sos 
te ee 


eee 
rer CeTaeT) 


" 
Ae ot Ob te ae eee 





NOTES: 
GQ) MAPLST headers are printed on each page. 
@) Line 1 and the report password and the number of lines appear at the top of each page. 


@) Colons (:) are substituted for the tabs between the data columns, and are printed. 


Figure 4-2. Sample Report Listing (RID 2B, Mode 102) after MAPLST Execution 
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@ The following sample job control stream contains all of the previously discussed 
MAPLST utility control statements: 


1 // JOB TESTLST2, , 28000 

fe // DVC 20 // LFD PRNTR 
3 // DVC 50 // VOL MAPPER 
4 // LBL MPLSTOUT // LFD MPLSOT 
5 // SFT DLOAD=(1.4000) 

6 // EXEC MAPLST 

7 is 

8 #OWN UOWNCDOO 

9 #HDL 4 

10 #LST 102B002 
ll #OWN 

12 #SPC 2 
i #HDL 0 
14 #LST 102D001011048 
15 #END 
16 /* 
17 /& 


NOTE: 


This MAPLST job control stream may be used with the own-code sample shown in 


& Figure 4-5. 


Line 1 designates the size of main storage including your own code. Next, the device 
assignment set (line 2) assigns the printer. PRNTR must be used as the LFD name. Lines 
3 and 4 assign the output MIRAM file used in this job stream and by the sample own 
code (Figure 4—5). This MIRAM file must be previously allocated. Line 5 assigns the 
main storage area for dynamic loading of your own code. The number of calls is one 
and the // SFT statements request expansion for X'4000’ bytes. 


The first MAPLST control statement (line 8) states that your own code with the phase 
name UOWNCD is prepared. When the #LST control statement executes in line 10, 
control transfers to your own code. 


The #HDL control statement (line 9) indicates that four lines, beginning with the second 
line of the report, are printed on each page. These lines are usually for headers in a 
MAPPER 80 report. When the #LST control statement executes (line 10), this header 
control takes effect. 


Line 10 states that a mode 102, type B, RID 2 report will be printed. Line spacing is 1, 
and 4 lines of headers print on each page. 


The #SPC control statement (line 12) indicates that the line spacing changes to 
double-spacing when the next report begins printing. 


@ The second #HDL statement (line 13) indicates header line print termination. This is 
: effective when the #LST control statement in line 14 executes. 
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Line 11 signals the termination of transfer of control to your own code. This termination 
is effective when the #LST control statement (line 14) executes. Until then, control is 
transferred to your own code when each single line of the report is read in. 


The #LST statement (line 14) signifies that a mode 102, type D, RID 1 report is printed. 
Starting with column 11 of the report, 138 columns are printed. Line spacing is 
double-space; after the second page of the report, no headers are printed. 


Executing MAPLST for this TESTLST2 job produces a: 
= ~=Listing of RID 2B from mode 102 (Figure 4—2) 
w= =Listing of RID 1D from mode 102 (Figure 4—3) 


= MIRAM file (Figure 4—4) created by your own code (Figure 4—5) 


tae MAPPER-80 REPORT IMAGE LIST tee MODE:TC2 FYRE:D &1U#=009 RCSZ=29128 LIST:019-048 BATE 83/09/28 PAGE- 1 
eDATE 83/07/15 19204253 TyYPE=D RID=001 83/07/15 JLOE RENT: 20 
PORATE ORDER STATUS >>> 
© PRODUCT .ODR.CUST. UNIT EXTENDED. 
« «TYPE eRTYCODE. RETAIL « RETAIL « 
2s = 


eSSeeStees zoe, sees, sz z=sze2,sssss Ste 


TGREENEOX9: 


N 


sAMCOS 
TGREENEOX7: TAPCO: 
SBLACKBOX9: sAPCO: 
SGREENEOXGs sSARCOS 


SBLACKPEOXS: TARCOS 


TBLACKEOX4: 


TARCOS 
SGREFNEOXS: SDICOs 
SGREENCOXS: TFFOS: 
ZGREENEOX1: sFEDS: 
SBLACKBOXE: SFEDS: 
SBLACKPOXO: TFEDS: 
sBLACKEOX4: sINTR: 


SOLACKEOXD: susscs 


~~ 2-6 2 oe we ew ew ewe et ewe es 
° 


sGREENPOXD: sUSSCs 


END REPORT 





Figure 4-3. Listing of RID 1D Resulting from MAPLST Execution (TESTLST2) 


Figure 4—4 shows an OS/3 editor display of the MIRAM file resulting from the sample 
MAPLST job control stream (TESTLST2) using the sample own code in Figure 4—5. 
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.0000 ZH 741224 BLACKBOX1] 741223 

-0000 IP 741225 BLACKBOX] 741223 

.0000 IP 741219 BLACKBOX2 741218 

.0000 OR 750110 BLACKBOX4 

.0000 SC 750110 BLACKBOX5 750131 

.0000 IP 741222 BLACKBOX5 741222 

.0000 SH 741203 BLACKBOX0 741201 741203 58738 
.0000 SH 741202 BLACKBOX6 741201 741202 S6937 
.0000 SH 741209 BLACKBOX6 741207 741209 S8538 
-0000 SH 741203 BLACKBOX6 741201 741203 58934 
11.0000 IP 741216 BLACKBOX6 741215 

12.0000 OR 741210 BLACKBOX7 

13.0000 OR 741227 BLACKBOX7 

14.0000 SC 750108 BLACKBOX7 750122 

15.0000 IP 741227 BLACKBOX7 741227 

16.0000 SH 741202 BLACKBOX7 741201 741202 $8531 
17.0000 IP 741215 BLACKBOX7 741215 

18.0000 OR 741230 BLACKBOX8 

19.0000 SH 741203 BLACKBOX8 741201 741203 S8518 
20.0000 OR 741217 BLACKBOX9 


fa 
DBWOOINMDMN Swope 





Figure 4-4. Contents of MIRAM File Created by Own Code during MAPLST Execution (TESTLST2) 


4.4. YOUR OWN CODE 


4.4.1. Applying Your Own Code 
Several ways to apply your own code when using the MAPLST utility include: 
m = Divide one line in MAPPER 80 report and print it as two lines (2-stage handling). 


= Copy a MAPPER 80 report to a file with a different format, e.g., output to magnetic 
tape or MIRAM file. 


NOTE: 


Your own code cannot use a DMS data base. To direct data to another DMS data base, 
write your own code to store data in an intermediate data file. Then, transfer the data 
to a DMS data base by using a separate DML application program. 


4.4.2. Transferring Control to Your Own Code 


Control transfers to your own code each time MAPLST obtains the MAPPER 80 report 
line record. MAPLST transfers one line at a time from the first line in the report to the 
last line. 


The transferred data can be a maximum of 178 bytes. Table 4—1 describes the 
contents of these bytes by their byte position. 
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Table 4~1. MAPLST Data Transfer Description 


a Mode number of the report 



















report the length is the same. 


Line 1 and lines preceded by a period are also transferred at tab line length. 
Sets classification of the lines. 


@H_ Line 1 and header lines (4 lines) 
BL Last line (end of report tine) 


@ Other than H or L for all other lines. 


Type of report 
RID number of report 
12 to 46 
47 to 178 Maximum 132 


Line image length, set in binary. There are 80 to 132 bytes, but within one 
NOTE: 


Not used 





Sets line image. Line image has the same content as the image on the screen. 





With line 1, the report password is also set (6 bytes) from the eighty-first byte of the 
line image. Also, at the start of a line and at its end, as well as between fields, tabs are 
set with the tab code (X‘05’). MAPLST includes these tab sets in the report data line. 
Remember to remove them within your own code. 


Two considerations must be made when exiting from your own code: 
1. Don't change the report image within the transferred data. 


2. Return control to the MAPLST utility through the EXIT PROGRAM instruction (in 
COBOL), because your own code is a called program. 


4.4.3. Executing Your Own Code 


Your own code for the MAPLST utility is prepared as a called program. This 
independent own code module is linked and the load module is placed in the same load 
library where MAPLST resides. Your own-code module is linked to MAPLST at 
execution time through the OS/3 dynamic load function. 


MAPLST always produces a listing of the MAPPER 80 report, with or without your own 
code. 
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@ NOTE: 


When separately compiling and linking the sample own code (Figure 4—5) to create a 
load module, use the sample MAPLST job stream TESTLSTZ2. 


4.4.4. Example of Your Own Code 


The following is an example of your own-code placement in the framework of a COBOL 
program: 


JOB MPLSTOWN 

DVC 20 // LFD PRNTR 
WORK1 

WORK2 

WORK3 

EXEC COBL74 


IDENTIFICATION DIVISION. 

PROGRAM-ID. MYPROG. 
*xREMARKS. THIS PROGRAM ACTS AS A SUBROUTINE TO 
x A MAPLST JOB USED TO OUTPUT A MAPPER 
x REPORT FROM THE MAPPER DATA BASE. 
we KK KK KR KR OK KK OK KR KK KK KK RK KK 
x 


i 
DWOCAIKHMALwWNe 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-0S3. 
OBJECT-COMPUTER. UNIVAC-OS3. 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT MPLSTOUT 


ASSIGN TO DISK-MPLSOT-F. 
x 


KKK KK KK KKK KK OK RK RK KR KK KK KKK 
k 
DATA DIVISION. 
FILE SECTION. 
FD MPLSTOUT 
LABEL RECORD IS STANDARD. 
01 OUTPUT-RECORD. 
05 STATUS-CODE 
05 FILLER 
05 STATUS-DATE 
05 FILLER 
05 PRODUCT-TYPE 
05 FILLER 
05 PRODUCTION-PLAN 
05 FILLER 
05 SHIPPING-DATE 
05 FILLER 
05 SHIPPING-ORDER 
WORKING-STORAGE SECTION. 
01 PROGRAM-INDICATOR. 





Figure 4-5. Sample of User Own Code (Part 1 of 3) 
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05 OPN-FIL PIC XXX VALUE 'YES'. 
05 CLS-FIL PIC XXX VALUE ' NO'. 
05 REC-CNT PIC 9(3) VALUE ZEROS. 
WORK-RECORD. 
05 FILLER X. 
05 STATUS-CODE-WK X(2). 
05 FILLER X. 
05 STATUS-DATE-WK 9(6). 
05 FILLER X. 
05 BY-IN-WK X(2). 
05 FILLER X. 
05 PRODUCT-TYPE-WK X(9). 
05 FILLER X. 
05 SERIAL-NUMBER-WK 9(6). 
05 FILLER X. 
05 PRODUCT-COST-WK 9(6). 
05 FILLER X. 
05 ORDER-NUMBER-WK 9(5). 
05 FILLER X. 
05 CUSTOMER-CODE-WK X(4). 
05 FILLER X. 
05 PRODUCTION-PLAN-WK 9(6). 
05 FILLER X. 
0S PRODUCTION-ACTUAL-WK 9(6). 
05 FILLER X. 
05 SHIPPING-DATE-WK 9(6). 
05 FILLER X. 
05 SHIPPING-ORDER-WK X(5). 
05 FILLER X. 
05 SPECIAL-CODE-WK X(3). 
05 FILLER X. 
05 REMARKS-WK X(9). 
05 FILLER X. 
LINKAGE SECTION. 
01 OWN-DATA. 
02 MODE-NO 9(3). 
02 TYPEX X. 
02 RID-NO 9(3). 
02 FILLER 
02 LINE-LENGTH 
02 LINE-TYPE 
02 FILLER 
02 LINE-IMAGE 





Figure 4-5. Sample of User Own Code (Part 2 of 3) 
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89 wk kK we KR we KR KK Ke OK OK > a Ce i> a> ie a> ai ai, di ai 4 
90 x 
91 PROCEDURE DIVISION USING OWN-DATA. 
92 k 
93 Kk kK KK KK KKK Kw we kK we Kw KK KK KKK 
94 * 
95 MAIN-LINE. 
96 IF OPN-FIL = 'YES' THEN PERFORM OPEN-FILE-RTN. 
97 COMPUTE REC-CNT = REC-CNT + 1. 
98 IF REC-CNT > 5 AND REC-CNT < 26 THEN 
99 PERFORM PROCESSING-LOOP. 
100 IF REC-CNT = 25 THEN MOVE 'YES' TO CLS-FIL. 
101 IF CLS-FIL = 'YES' THEN PERFORM CLOSE-FILE-RTN. 
102 OUT-EXIT. 
103 EXIT PROGRAM. 
104 x 
105 xe Kk Ke Ke KK KKK KK kk kK kK kK KKK KKK 
106 x . 
107 OPEN-FILE-RTN. : eg Ure ee a 
108 OPEN OUTPUT MPLSTOUT. 
109 MOVE ' NO' TO OPN-FIL. 
110 x 
1ll KK we KK KK KK Kk kK wk ke KK KKK KK KK 
112 ik 
113 PROCESSING-LOOP. 
114 MOVE LINE-IMAGE TO WORK-RECORD. 
115 MOVE SPACES TO QUTPUT-RECORD. 
116 MOVE STATUS-CODE-WK TO STATUS-CODE. 
117 MOVE STATUS-DATE-WK TO STATUS-DATE. 
118 MOVE PRODUCT-TYPE-WK TO PRODUCT-TYPE. 
119 MOVE PRODUCTION-PLAN-WK TO PRODUCTION-PLAN. 
120 MOVE SHIPPING-DATE-WK TO SHIPPING-DATE. 
127 MOVE SHIPPING-ORDER-WK TO SHIPPING-ORDER. 
122 WRITE OUTPUT-RECORD. 
123 k 
124 kK kK Ke KKK KR KK KK wk kK we KK KK KKK KK 
125 x 
126 CLOSE-FILE-RTN. 
127 CLOSE MPLSTOUT. 
128 MOVE ' NO' TO CLS-FIL. 
129 /x 


130 // DVC RES // LBL SYSLOD // LFD LOD 
131 // WORK 

132 // WORK2 

133 // EXEC LNKEDT 

134 // PARAM OUT=LOD 


135 7§ 

136 LOADM UOWNCD 
bor INCLUDE MYPROG 
138 7k 

139 /& 


Figure 4-5. Sample of User Own Code (Part 3 of 3) 
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Explanation of your own code for MAPLST execution: 


Lines 22 and 23 select and assign a MIRAM file called MPLSTOUT. This own code 
program writes data to the MPLSTOUT file during its processing of the spool file. 


In lines 31-77, the format of the record sent to the MIRAM file is not the same as the 
RID O of the MAPPER 80 report. The output record does not need to match the RID O 
of the MAPPER 80 report when you use working storage to manipulate the MAPPER 80 
report line to match the output record. Thus, you may select only the portions of the 
MAPPER 80 report you want. 


Lines 78-88 define (in the linkage section) data transferred to MAPLST. 
Line 79 defines information transferred to MAPLST in a single group item. 
Line 87 adjusts the line length to fit the record size of the MAPPER 80 report. 


Line 91 shows that you must use the linkage section group item on the procedure 
division USING clause. 


While the counter is greater than 5 and less than 26, you perform the processing loop 
that writes a record to the MIRAM file after moving the MAPPER 80 report line from 
print image to WORK-RECORD (line 98). 


Line 101 closes the MIRAM file when no more records are placed in the MIRAM output 
file. 


Lines 102 and 103 use the EXIT PROGRAM statement to exit your own code. 


Because this own code selects only the desired data fields, it places the line image in 
the WORKING-STORAGE section first. Then, it moves the desired fields to 
OUTPUT-RECORD and writes OUTPUT-RECORD to the MIRAM file. 


Always use a WORKING-STORAGE section in your own code to eliminate the tab sets 
that are a part of the MAPPER 80 report line received from MAPLST. Always move the 
line image to WORKING-STORAGE first before removing tab sets (lines 113-122). 


Lines 130-138 are the control statements that tell the linkage editor to create the 
own-code load module. Remember to place the own-code load module into the same 
load module library where MAPLST resides. In this example, the load module library is 
$Y$LOD. 











UP-9736 SPERRY OS/3 4-15 
MAPPER 80 FORMS GENERATION AND UTILITIES 


@ 4.5. MAPLST ERROR MESSAGES 


Table 4—2 lists error messages issued by the MAPLST utility. 


Table 4-2. MAPLST Error Messages 


Error Message Number Error Message Text 


MAPLST NORMAL TERMINATION 
PARAMETER ACCEPT ERROR 
ILLEGAL PARAMETER 

ILLEGAL MODE NUMBER 
ILLEGAL TYPE NUMBER 
ILLEGAL RID NUMBER 


ILLEGAL START POSITION 


ILLEGAL END POSITION 


MODE DOES NOT EXIST 


RID DOES NOT EXIST 
@ MAPPER DATA BASE ACCESS ERROR (nnnn) 
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5. MAPRAD Utility 


5.1. WHAT THE MAPRAD UTILITY DOES 


MAPRAD is a batch utility program that adds a report to the MAPPER 80 data base 
from a MIRAM file. Although MAPRAD can add any report to the data base, it is 
designed to add run reports. 


Figure 5—1 shows a control flowchart of the MAPRAD utility. 
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Figure 5-1. Control Flow for MAPRAD Utility Execution 
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The MAPRAD utility performs the following functions: 

@ Adds data from a MIRAM file to the MAPPER 80 data base as a report. 

m™ Converts each line of the MIRAM file to a MAPPER 80 report line. 

m Copies the headers on the MAPPER 80 report from the header lines of the report 
type RID O. Also, inserts the tab characters in the proper location in the report, 
according to the RID O of the type. 

m Replaces the specified report with a new report if it already exists in the MAPPER 
80 data base. 

5.2. MAPRAD CONTROL STATEMENTS 

When you are ready to add reports to the MAPPER 80 data base from a MIRAM file, 

you execute the MAPRAD utility. MAPRAD control statements designate the user-id of 

the MIRAM source file; the mode number, type, and RID number where the report is 
stored; and a tab exchange character. 


5.2.1. Naming the Creator of the Report (#UID) 


The #UID control statement identifies the creator of the report being added to the 
MAPPER 80 data base. 


Format: 
HUID user-id 
where: 
user-id 
Specifies the user-id (up to 12 characters) of the creator of a new MAPPER 80 
report added to the MAPPER 80 data base. 


When you omit this parameter, the default user-id, MAPPER, is used. 


This control statement is not required when you use MAPRAD to modify or 
replace an already existing report on the MAPPER 80 data base. 
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5.2.2. Storing the Report (FADD) 


The #ADD control statement specifies the mode number, type, and optional RID number 
where the report is to be stored. It also optionally specifies a tab exchange character to 
be converted to tab settings on the MAPPER 80 report. 


Format: 


#HADD mmmt{€rrrj[c] 


where: 


mmm 
Is the mode number where the report will be stored. This parameter value 
must be 3 digits long with leading zeros, e.g., 4 is 004. 


Is the type where the report will be stored. 


rer 
Is the RID number of the report. When you omit this parameter, the lowest 
available RID number is assigned. This parameter value must be 3 digits long, 
and leading zeros are required. 


Is the tab exchange character used to convert any special character in the input 
data to a tab character in the MAPPER 80 report. Creating tab characters on 
input data is inconvenient, so using this parameter helps set up tab characters 
in the output report. 


5.3. INPUT FILE REQUIREMENTS 


Before executing the MAPRAD utility, the input file must have the following 
characteristics: 


ms The LFD name of the input file must be DISKIN. No other name can be used. 


s When preparing the data input file using the general editor (EDT), the following 
parameters are required: 


aw ,filename,vsn,RCFM=VAR,RCSZ=526,BFSZ=1024, INIT=Y 


Y 


Y 
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5.4. TAB LINE PROCESSING 


When you add a data report (not run report) in the MAPPER 80 data base, you must 
specify the tab exchange character in the first column of every data line image in the 
input file. When the MAPRAD utility detects the tab exchange character in the first 
column of the line image, it converts the data line to the tab line and inserts the tab 
characters in the proper location in the line according to line 22 of the RID O. 


NOTE: 

You must leave space between input data fields to accommodate tab characters; 
otherwise, you lose data characters within MAPPER 80 report fields. 

5.5. MAPRAD EXECUTION 

The following sample MAPRAD execution control stream includes the previously 


discussed MAPRAD control statements. Note that DBMS must be running before 
MAPRAD executes. 


1. // JOB MAPRAD, , 12000 

2. // DVC 26 = // LFD PRNTR 
3. // DVC 506 // VOL MAPPER 
4. // LBL MAPPERSREPORT // LFD DISKIN 
De // EXEC MAPRAD 

6. /$ 

7. #HUID MAPR 

8. HADD 0028010? 

9. /* 

10. /8& 

11. // FIN 


The LBL statement (line 4) that specifies the input data file contains the image of the 
report. In the #UID control for MAPRAD (line 7), MAPR is the user-id name if report 10 
doesn't exist in the MAPPER 80 data base. When report 10 does exist in the data 
base, the user-id name MAPR is ignored. 


The #ADD control statement (line 8) indicates that the report will be created in mode 2, 
type B, and RID 10. The tab exchange character of a question mark (?) is converted to a 
tab character when MAPRAD executes. 
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5.6. MAPRAD ERROR MESSAGES 


Table 5-1 lists error messages issued by the MAPRAD utility: 


Table 5-1. MAPRAD Error Messages 


Error Message Number Error Message Text 


MAPRAD NORMAL TERMINATION 
MODE=mmm TYPE=t RID=rrr 


INPUT FILE OPEN ERROR 
ILLEGAL PARAMETER 
ILLEGAL MODE NUMBER 
ILLEGAL TYPE NUMBER 


ILLEGAL RID NUMBER 


MODE DOES NOT EXIST 


RID @ DOES NOT EXIST 
MAPPER DATA BASE ACCESS ERROR 
MAPPER DATA BASE ACCESS ERROR 
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6. MAPDMS Utility 


6.1. WHAT THE MAPDMS UTILITY DOES 

MAPDMS is a utility that directly accesses the MAPPER 80 data base at a lower, more 

powerful level than the MAPLOD and MAPLST utilities. It requires more programming 

effort on the part of the user. As described earlier, you can write your own code that 

functions as a subroutine to the MAPLOD and MAPLST utilities. 

With MAPDMS, however, the roles are reversed. You write the main program and 

MAPDMS operates as a set of subroutines to your program. This allows you to access 

the MAPPER 80 data base and execute complex operations without being familiar with 
@ the physical structure of the MAPPER 80 data base. 

MAPDMS users can do the following types of processing: 

= Prepare and enlarge reports 

= Delete reports 

= = §=©Search reports 


m Update reports (including line addition, change, and deletion) 


Figure 6—1 shows a control flowchart of the MAPDMS utility. 
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Figure 6-1. Control Flow for MAPDMS Utility Execution 
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® 6.2. MAPDMS FUNCTIONS 


Your programs interface with MAPDMS utility using a number of functions that initiate 
or terminate MAPDMS and open, close, search, and update reports. 


a ~=Initiation/termination functions: 
— MP#SON initiates MAPDMS 
— MP#SOF terminates MAPDMS 
m Open/close report functions: 
— MP#OPN opens a report for display or update 
— MP#CLS closes a report against display or update 
m = Inquiry/update functions: 
— MP#PLN positions the report 
— MP#GLN reads lines of the report 
& — MP#ALN adds lines to a report 
— MP#MLN changes lines of a report 
— MP#DLN deletes lines of a report 


— MP@#LLN loads lines of a report 


6.2.1. CALL Function Statement Format 
| All CALL statements used by your programs have the following format: 
| 
CALL 'function-name' USING request-packet [data-area]. 
where: 


function-name 


Identifies the function being called, e.g., MP#SON, MP#GLN, etc. 


request-packet 
Specifies the name of the packet containing data to be transferred to and from 
MAPDMS. Your program prepares a packet for each type of data being 


@ transferred. 
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data-area 
Names the data area used when transferring line records. It is necessary to 
specify this parameter when using the MP#GLN, MP#ALN, MP#MLN, and 
MP#LLN functions. Occasionally, it is specified for the MP#OPN function. 


6.2.1.1. Contents of Request Packet 
Each request packet is 23 bytes long and contains the following data: 


RETURN - STATUS (Unpacked format, 4 bytes) 
Gives the status of results returned from MAPDMS. 


OPTION1 (Character format, 2 bytes) 
Sets function requests for detailed handling of function requests. 


OPTION2 (Character format, 2 bytes) 
Sets any function requests not specified in OPTION1. 


MODE -NO (Unpacked format, 3 bytes) 
Specifies the mode number (OOO—999) where the processed report is 
stored. Only reports in even-numbered modes can be updated. Mode 
number is set when the function is requested. 


TYPE-X (Character format, 1 byte) 
Specifies the type letter (A—l) of the report being processed. Report 
type is set when the function is requested. 


RID-NO (Unpacked format, 3 bytes) 
Specifies the number of the report to be processed (001-999). RID 
number is set when the function is requested. This field can contain a 
RID from a MAPDMS result. 


LINE-LENGTH (Packed format, 2 bytes) 
Specifies the line length of the report being processed. This field is 
obtained as a result of MAPDMS execution. 


C-LINE-NO (Packed format, 3 bytes) 
Indicates the line number being processed (1—-99999). This field is set 
when the function is requested. It can also be returned from a 
MAPDMS execution result. 


NO-OF-LINES (Packed format, 3 bytes) 
This is the number of lines in the report being processed, or the 
number of lines erased. This is set at the time of the request. It can 
also be a result returned from MAPDMS. 
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The following example shows how to code a request packet in your program. This 
request packet provides a place for your program to communicate with the MAPDMS 
utility. 


WORKING-STORAGE SECTION. 


@1 PACKET. 

@2 RETURN-STATUS PIC 9(4) VALUE ZEROS. 

02 OPTION1 PIC XX VALUE SPACES. 

62 OPTION2 PIC XX VALUE SPACES. 

@2 MODE-NO PIC 9(3) VALUE ZEROS. 

02 TYPE-X PIC X VALUE SPACE. 

@2 RID-NO PIC 9(3) VALUE ZEROS. 

@2 LINE-LENGTH PIC 9(3) COMP-3 VALUE ZEROS. 
@2 C-LINE-NO PIC 9(5) COMP-3 VALUE ZEROS. 
@2 NO-OF-LINES PIC 9(5) COMP-3 VALUE ZEROS. 


6.2.1.2. Contents of Data Area 


You need a data area when you use the MP#OPN, MP#GLN, MP#ALN, MP#MLN, or 
MP#LLN functions. 


MP#OPN function 


When a report is being created, expanded, or updated, you can transfer the 
following type of data to MAPDMS: 


@1 + DATA-AREA. 
@5 USER-ID PIC X(12). 
05 REPORT-PASSWORD PIC X(6). 


When you specify this data, the user-id and report-password on line 1 of the 
resulting report are substituted for the specified contents. If you don’t specify the 
data area when MP#OPN is called, blanks are set when creating a report and the 
original content remains when expanding or updating the report. 


MP#GLN, MP#ALN, MP#MLN, MP#LLN functions 
Line records are transferred in the following format: 
01 DATA-AREA. 


@5 LINE-RECORD-LENGTH PIC 9¢3) COMP VALUE ZEROS. 
@5 LINE-RECORD PIC X(132). 
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The line record length must be set in binary before using the MP#GLN function. 
After MP#GLN is processed, the length of the transferred line record is set. When 
using other functions, you must set the lengths of line records transferred into 
MAPDMS in the range 80 to 132. 
The line record is the report image of one line. When the line record of a tab line is 
transferred into MAPDMS, set a tab for the first column only (X‘05’). All other tabs 
are set by MAPDMS. 

6.2.2. Initiating and Terminating MAPDMS Utility (MP#SON and MP#SOF) 

Your programs connect to the MAPDMS utility via the MP#SON function call. At that 

point, the MAPDMS utility initializes the necessary tables and buffers and begins initial 

processing of DMS. 

The format for MP#SON is: 


CALL 'MPHSON' request-packet. 
To establish the request-packet, make OPTION1 and OPTION2 blank. 
Your programs disconnect from the MAPDMS utility with the MP#SOF function call. 
The format for MP#SOF is: 

CALL 'MP#SOF' request-packet. 


To establish the request-packet, specify on OPTION1 whether or not to validate an 
updated report to the present time. If OPTION1 is: 


Blank Validate the update and confirm the report update status. No updating 
actually occurs until the MP#SOF function is called with no OPTION1 
parameter. 

RB Cancel the update and restore the report to its status before the 
update. 


For examples of these functions, see 6.4. 

















¥ 
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6.2.3. Initiating a Report (MP#OPN) 


Before referencing or updating report lines, your program calls the MP#OPN function and 
specifies the object report and mode. 


MAPDMS processes one report at a time. Therefore, once the MP#OPN function is 
called, it cannot be called again for another report until the MP#CLS function is called. 


The MP#OPN function call initiates use of a report. 
The format for MP#OPN is: 


CALL 'MPHOPN' request-packet. 


To establish the request-packet: 


OPTION1 
Specifies the handling mode for the report: 


Blank 
Reference only is allowed. Only MP#PLN (line positioning) and MP#GLN 
(read) functions are possible (input mode). 


LD 
Creates a new report. Only the MP#LLN (write) function is possible. Your 
program writes only the actual data line. MAPDMS prepares headings. 
(See the FR parameter on OPTIONZ2.) 

EX 
Extends the report. Only the MP#LLN function can be used. Lines can be 
added to the end of an existing report (extension mode). 

DT 
Deletes an entire report. The MP#CLS function must be called after this 
(delete mode). 

10 
Allows changes to an existing report. This parameter allows all update 
functions except MP#LLN (update mode). 

OPTION2 


Specifies RID number of object report: 


Blank 
Makes the RID number in the packet the processing object. This can be 
specified in all handling modes. Except for the LD mode, the RID must 
exist at this time. 
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FR 
Makes the object RID the lowest numbered open RID (within the specified 
type). This specification is valid only in LD mode. The RID number 
specified in the request packet is ignored. When this function ends, the 
object RID number is returned to the packet. 


NX 
Makes the object RID the next free (open) RID after the RID number 
specified in the packet. If RID numbers 004, 007, and O08 exist in one 
type, a specification of O05 in the packet causes 007 to become the 
processing object. At the end of this function call, the RID number is 
returned to the packet. This option can be specified with all modes. 


MODE -NO 
Supplies the number of mode containing the report being processed (values are 
000 to 999). An odd mode number specifies read only. 


TYPE -X 
Specifies the type containing the report being processed (value A to |). 


RID-NO 
Is from 001 to 999, when specifying a blank for OPTION2. When specifying 
NX in OPTION2, specify from OOO to 998 as the RID number. Specify O00 
when you want the lowest numbered RID within the type to be the report 
processed. . 


To set the data area, specify it when using the creation, extension, or update modes. 
The user-id and report password are set in the data area for later use. 


MAPDMS updates the date and time in line 1 after creating or updating a report. It also 
updates the user-id and report password if this information is available in the data area. 


MAPDMS returns the following data to the request packet: 


RID-NO 
Specifies the RID number of the object report. 


LINE-LENGTH 
Is the line length of the object RID set (80 to 132 columns). 


C-LINE-NO 
Is the current line number according to the handling mode: 


Input mode: 1 
Creation mode: usually 6 (number of line after header) 


Extension mode: line number of the last line in the object report (END 
REPORT line) 


Update mode: 1 
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NO-OF-LINES 
Is the number of lines in the object report (from 2 to 99999). This includes line 
1 and the END REPORT line. Nothing is returned here when in creation mode. 
following examples show the use of options on the MP#OPN function call. 


Referencing a specific report 


MOVE BLANKS TO OPTION’, OPTION2. 
CALL 'MPHOPN' request-packet. 


CALL 'MP#HCLS' request-packet. 


Creating a new report for an open RID number 
MOVE 'LD' TO OPTION1. 


MOVE 'FR' TO OPTION2. 
CALL 'MP#HOPN' request-packet. 


CALL 'MP#HCLS' request-packet. 


Creating a new report for a specific RID number 


MOVE 'LD' TO OPTION1. 
MOVE BLANKS TO OPTION2. 
CALL 'MP#OPN' request-packet. 


CALL 'MP#CLS' request-packet. 


Updating multiple reports (one by one) from a certain RID number set in the packet. 
(The RID number set in the packet must immediately precede the first processed 
RID.) 


MOVE 'IO' TO OPTION1. 


MOVE 'NX' TO OPTION2. 
CALL 'MP#OPN' request-packet. 


CALL 'MP#HCLS' request-packet. 
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6.2.4. Terminating a Report (MP#CLS) 





When report processing is complete, your program specifies the end of report by calling 
the MP#CLS function. 


The format for MP#CLS is: 


CALL 'MPHCLS' request-packet. 


To set the request-packet, specify the MODE-NO, TYPE-X, and RID-NO of the report 
being processed. 


MAPDMS returns the following data to the request-packet: 


NO-OF-LINES 
Is the number of lines in report being processed. This value is not returned in 
delete mode. 


For examples of this function, see 6.2.3. 


6.2.5. Processing Report Line Reference Functions 
You can call the following functions for processing line records: 


MP#PLN Positions a line 
MP#GLN Reads a line 
MPHALN Adds a line 
MPHMLN Changes a line 
MPHDLN- Deletes a line 
MPHLLN Loads a line 





When using MP#GLN, MP#ALN, MP#MLN, and MP#LLN functions, one line at a time 
transfers into your program. Table 6—1 shows which handling modes (for MP#OPN) are 
used with each line processing function. 


Table 6-1. Allowable Handling Modes for Processing Report Line Reference Functions 


MP#OPN Handling Modes 
Input Mode | Update Mode Delete Mode 
LD DT 













Processing 
Functions 
















MP#PLN 


MP#GLN 


MP#ALN 


MP#MLN 





MP#DLN 


MP#LLN 
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6.2.5.1. Positioning a Line on a Report (MP#PLN) 


The MP#PLN function positions the line at the specified line number. The positioned line 
becomes the current line. The current line becomes the object when a line function 
executes. This is the C-LINE-NO described in your program's working storage. 


MAPDMS references and processes lines with the current line as the base of reference. 
The line numbers in a report signify the position of the lines within that report. Line 1 is 
the first line of a report and the other lines are numbered in ascending order (2, 3, 4, 
etc). 


These line numbers are not found in the line record, and the determination of the 
position of a line from the beginning of the report is handled logically. When adding or 
deleting lines, the line numbers of all subsequent lines change. 


The format for MP#PLN is: 


CALL 'MP#PLN' request-packet. 


To set the request-packet: 


MODE -NO 
Specifies the number of the mode containing the report being processed. 


TYPEX 
Is the letter of the type containing the report being processed (value A to }). 


RID-NO 
Is the RID number of the object report. 


C-LINE-NO 
Is the line number where line positioning begins. Values are 1 to 99999. When 
specifying a line number larger than the last existing line, the current line 
number becomes the END REPORT line. 


For examples of this function, see 6.2.5.2 and 6.2.5.3. 


6.2.5.2. Reading the Next Line (MP#GLN) 


The MP#GLN function reads the line following the current line and sets the line record in 
the specified data area. The line number of the transferred line record becomes the new 
current line. 


If the program calls a MP#GLN function after requesting a MP#OPN, MP#PLN, or 
MP#DLN function, the current line does not change and the line record of the current 
line transfers into your program's data area. 
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The format for MP#GLN is: 


CALL 'MPHGLN' request-packet data-area. 


To set the request-packet, specify the MODE-NO, TYPE-X, and RID-NO of the object 
report. 


MAPDMS returns the following data to the request-packet: 


C-LINE-NO 
Is the line number of the transferred line. 


Examples: 
1. Read one line at a time starting with the first line of the report: 


CALL 'MPHOPN' request-packet. (Line 1 is the current line.) 


CALL 'MPHGLN' request-packet data-area. (Read from line 1 in order. This function 
must execute once for every line read.) 


2. Read one line at a time starting in the middle of the report. 


CALL 'MPHOPN' request-packet. 

CALL 'MP#PLN' request-packet. (Positions the report where you want to 
begin to read. The current line number 
contains the desired line position.) 


CALL 'MPHGLN' request-packet data-area. (Read from the current line number 
specified in the’ MP#PLN function. This 
function executes once for every line 
read.) 


6.2.5.3. Adding a Line to a Report (MP#ALN) 

The MP#ALN function adds the line record specified in the data area at the line 
following the current line number. The added line then becomes the current line. This 
function is invalid when the END REPORT line number is the current line. 

The format for MP#ALN is: 


CALL 'MPALN' request-packet data-area. 


To set the request-packet, specify the MODE-NO, TYPE-X, and RID-NO of the object 
report. 
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MAPDMS returns the following data to the request-packet: 


C-LINE-NO 
Is set to the line number of the added line. 


Examples: 
1. Add several lines following a specific line: 
CALL 'MP#PLN' request-packet. (The preceding line becomes the current line. 
If the added lines must start at the tenth 
line, position the current line at the ninth 
line.) 


CALL 'MP#ALN' request-packet data-area. (Adds lines in order. Executes once for 
every line added.) 


2. Add lines to the end of the report. 
CALL 'MP#PLN' request-packet. (Positions current line number at the line 


preceding the END REPORT line.) 


CALL 'MP#ALN' request-packet data-area. (Adds one line.) 


NOTES: 
1. When a line is added, all subsequent line numbers are incremented by 17. 


2. If the program calls the MP#GLN function immediately after the MP#ALN function, 
the line following the added line transfers into your data area. 


3. Use the MP#LLN function when large numbers of lines are added. 
When lines are added with MP#ALN, the MAPPER 80 line index is no longer 
complete. Thus, random referencing of many lines in the report takes longer (e.g., 
an operation specifying the line number or the binary find (BF) manual function). 

6.2.5.4. Changing the Contents of a Line (MP#MLN) 

The MP#MLN function changes the contents of a line. 


The format for MP#MLN is: 


CALL 'MP#MLN' request-packet data-area. 


To set the request-packet, specify the MODE-NO, TYPEX, and RID-NO of the object 
report. 
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Examples: 
1. Change the entire contents of a specific line. 
CALL 'MP#PLN' request-packet. (The line being changed becomes the current 


line.) 


CALL 'MPHMLN' request-packet data-area. (Substitutes one line. Your program puts the 
new line record into the data area before 
calling the MP#MLN function.) 


2. Change one portion of several lines. 


CALL 'MPHGLN' request-packet data-area. (Reads line records in order.) 


CALL 'MP#MLN' request-packet data-area. (Replaces lines. Each of these functions 
executes once for every line.) 


6.2.5.5. Deleting a Line from a Report (MP#DLN) 


The MP#DLN function deletes a specified number of lines, beginning with the current 
line. This function is invalid if the current line is line 1 or the END REPORT line. 


If the number of lines from the current line to the END REPORT line is less than the 
number of lines specified, lines are deleted up to the line immediately preceding the END 
REPORT line. 


After this function call executes, the line after the deleted lines becomes the current 
line, but the line number of the current line does not change. Also, the line number of 
the lines following the deleted lines are decremented by the number of lines deleted. 


The format for MP#DLN is: 
CALL 'MP#DLN' request-packet. 


To set the request-packet, specify the MODE-NO, TYPE-X, and RID-NO of the object 
report. 


MAPDMS returns the following data to the request-packet: 


NO-OF-LINES 
Is the actual number of lines deleted. If the END REPORT line is encountered 
while lines are being deleted, the number of lines returned is less than the 
number requested. 
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Examples: 
1. Delete a specific line: 
CALL 'MP#PLN' request-packet. (The line being deleted becomes 


the current line.) 


CALL 'MPHDLN' request-packet. (Deletes the line.) 


2. Delete lines with identical conditions, while reading a report. 
CALL 'MPHGLN' request-packet data-area. (Reads lines in order. When the line <_ 
should be deleted, the MP#DLN 
function is performed and control 
returns to MP#GLN to read another 
line. Otherwise, the MP#GLN function 


is performed.) 
CALL 'MPHOLN' request-packet. 


6.2.5.6. Creating New Reports and Expanding Old Reports (MP#LLN) 


The MP#LLN function creates a new report or expands existing reports. 


The report headings are automatically prepared in the creation mode. The END REPORT 
line is automatically prepared by the termination function (MP#CLS). 


MP#LLN is the only function allowed in creation and extension mode. 
The format for MP#LLN is: 


CALL 'MP#HLLN' request-packet data-area. 


To set the request-packet, specify MODE-NO, TYPE-X, and RID-NO of the object report. <— 
MAPDMS returns the following data to the request-packet: 
C-LINE-NO 


Is the number of the next line being written. C-LINE-NO equals the number of 
the line just written plus 1. 
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Examples: 
1. Create a new report 
CALL 'MPHOPN' request-packet. (Opens creation mode. Prepares headers 


automatically.) 


CALL 'MP#LLN' request-packet data-area. (Loads data lines in order after the 
headers. Executes once for every line.) 


CALL 'MPHCLS' request-packet. (Writes END REPORT line, completing the 
report.) 


2. Expand a report 


CALL 'MPHOPN' request-packet. (Opens the extension mode.) 

CALL 'MP#HLLN' request-packet data-area. (Loads data lines in order from the 
END REPORT line. Executes once for 
every line.) 

CALL 'MPHCLS' request-packet. (Writes the END REPORT line completing 
the report.) 


NOTES: 


1. When you specify an option other than FR on OPTION2 (report creation mode, 
blank RID O), the contents of the original report are destroyed. 


2. To immediately reference a newly created or expanded report, do the following: 
CALL ‘MP#CLS’ request-packet. Closes new or expanded report. 


CALL ‘MP#OPN’ request-packet. Opens report in the input or update mode. 


6.2.6. Checking Status after Function Execution 


MAPDMS returns a status and detailed status code to your program after each 
execution of a function call your program issues. Your program must check the 
RETURN-STATUS field of the request-packet returned from MAPDMS. 


The RETURN-STATUS field contains four characters in unpacked format. The leading 
two characters (status code) indicate the broad classification of errors. The final two 
characters indicate the details (detailed status code). 


Table 6—2 shows the status settings for each function. 
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& Table 6-2. MAPDMS Status Codes Returned to Request-Packet (Part 1 of 2) 





Detailed 


Status Statis 


Codes 


Codes 





x 
x | 


Normal termination; last line 
encountered 
Specified mode does not 
exist. 


No RID 0 in specified type im 
RID O edit code incorrect i 


Specified RID O does not 
exist. 


Number of lines > 99999 
No blank RID 


Report is not being 
correctly formed. 


12 
13 
14 
17 
18 
25 


o 


Lock cannot be cleared in xX 
reasonable time. 

Data base area is 

exhausted. 


Function used in incorrect 
sequence. 


Function not allowed in 
specific handling mode. 






Specified report not open 


aa 
aa 
| 
03 Function not allowed with 
current line. 
: ; | 
: 
z 


° 
ho 





Mode number error 


Type letter error 
RID number error || 
Current line number error 


0 
(6) 
0 
(6) Option combination 
incorrect 
(¢) 
(0) 
ie) 
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Table 6-2. MAPDMS Status Codes Returned to Request-Packet (Part 2 of 2) 


Status Returned 


Detailed 
Status 


Error in line number 
No data-area specification 
Data-area contents incorrect 


Abnormality within 
MAPDMS 





When the first positions in the RETURN-STATUS field contain 00, this indicates: 
m A status where the operation terminated normally 


= A status where the operation terminated and a warning about the data base status 
was issued 


In either case, the operation can continue. 


Table 6~3 describes functions with detailed status codes of 1 and status code of O 
(RETURN-STATUS of 0001). 


Table 6-3. Functions with Detailed Status Codes of 1 (Status Code O) 


MP#GLN END REPORT line (80 bytes) was transferred to the data-area. 


MP#PLN Line positioning or delete terminated normally. 
MP#DLN 


Table 6—4 describes functions with detailed status codes other than 1 and status code 
of O. 
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Table 6-4, Functions with Other Detailed Status Codes (Status Code O) 


Function Call Detailed Status 
Codes 


MP#OPN 12, 13, 14, 
15, 18 









Invalid function. MP#CLS cannot be called for this report; an MP#OPN can be 
executed on another report. 













MP#ALN 17 Invalid function; preceding function is secured; MAPDMS can be called. 
MP#4LLN 


MP#GLN 25 Report being incorrectly formed so MP#CLS is issued; another report can be 
processed. 


When the first two positions in the RETURN-STATUS field contain 01, this indicates: 








m Report creation or updating to that point must be completely restored to original 
status. 


m= MP#SON is invalid for MAPDMS. 


Table 6-5 describes functions with detailed status codes of O and 1 and status code 
of 1. 


When the first two positions in the RETURN-STATUS field contain 02, there is an error 
in your program. You must revise the program and rerun it. You must restore any 


report created or updated until that time to its original status. You must call the 
MP#SOF function. 


When the first two positions in the RETURN-STATUS field contain 03, an abnormality 
has occurred in the MAPDMS utility or DBMS runs. 


Table 6-5. Functions with Detailed Status Codes O and 1 (Status Code 1) 


Detailed Status Meaning 
Code 
MP#OPN Another user has a lock on the report; retry MP#SON and MP#OPN after a 
MP#SON short wait. 
MP#OPN The full volume extent of the data base is inadequate; see coordinator. Delete 
reports or expand data base. 
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6.3. MAPDMS EXECUTION 

MAPDMS cannot control multiple tasks as the online MAPPER 80 job can. Thus, you 

cannot run concurrent programs using the MAPDMS utility. Before executing MAPDMS, 

you must complete the following: 

= Your program must be linked and edited independently (without MAPDMS). Store 
the load module of the program in the same load module library as the MAPDMS 
modules. 


m To execute your program, use the following statement in the job control stream to 
assign the area for the dynamic loading module: 


// SFT DLOAD=(1,C0000) 


If your program calls SORT, specify the following statement: 


// SFT DLOAD=(2, 10000) 


= Start the DBMS job. 


Refer to 6.5 for an explanation of how to use the MAPDMS utility in your program. 


6.4. MAPDMS ROLLBACK AND LOCKS 

When an abnormality occurs during processing, or when your program specifies RB in a 
MP#SOF function call, this function returns the created or updated report to its original 
state. This function is common to the entire MAPPER 80 system. It relies on the 
quick-before-looks function of DMS. 


No updates to old or newly created reports become permanent until your program calls 
the MP#SOF function: 


CALL 'MPHSON' request-packet. 


(Update reports 2C, 5E, etc} 
(Create reports 2D, 1B, etc) 


CALL 'MPH#SOF' request-packet. (All permanent changes made here.) 


If any abnormalities occur within this block, the reports are restored to their original 
form. Calling the MP#SOF function with an RB option has the same effect. 
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@ We recommend that your program check the status code after every function call. 
When nonfatal errors occur (OOnn), you can call MP#SOF with the RB option. 


Examples: 
1. Define multiple reports at the same time: 


CALL 'MP#SON' request-packet. 
CALL 'MPHOPN' request-packet. Report A 


(Report preparation, updating, or deletion) 


CALL 'MPHCLS' request -packet. 
CALL 'MPHOPN' request-packet. Report B 


(Report preparation, updating, or deletion) 


CALL 'MP#HCLS' request-packet. 
CALL 'MPHSOF' request-packet. (Reports A and B are defined at the same time.) 


2. Restore the updated contents of multiple reports at the same time 


CALL 'MP#SON' request-packet. 
@ CALL 'MP#OPN' request-packet. Report A 


(Report preparation, updating, or deletion) 


CALL 'MPHCLS' request-packet. 
CALL 'MP#OPN' request-packet. Report B 


(Report preparation, updating, or deletion) 
CALL 'MPHCLS' request-packet. 
MOVE 'RB' TO OPTION1. 


CALL 'MP#SOF' RB. (Reports A and B are restored to original 
status at the same time.) 


NOTE: 


When an abnormality (other than status OOnn) occurs while report B is being processed, 
reports A and B are restored to original status at the same time as shown. 
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3. Define individual reports 


CALL 'MP#SON' request-packet. 
CALL 'MPHOPN' request-packet. Report A 


(Report preparation, updating, or deletion) 


CALL 'MPHCLS' request-packet. 

CALL 'MPHSOF' request-packet. (Report A is defined and report A changes are 
made permanent in the data base.) 

CALL 'MP#SON' request-packet. 

CALL 'MPHOPN' request-packet. Report B 


. (Report preparation, updating, or deletion) 

CALL 'MPHCLS' request-packet. 

CALL 'MPHSOF' request-packet. (Report B is defined and report B changes are 
made permanent in the data base.) 


In this example, if an abnormality occurs while report B is being processed, only 
report B is restored to original status. The changes to report A remain. 


When creating large or multiple reports with the MAPDMS utility, assure that the DMS 
quick-before-looks file is large enough by using a secondary allocation. Making a report 
permanent (MP#SOF) or rolling it back frees the image in the DMS quick-before-looks 
file. 


When executing the MAPDMS utility at the same time that you are interactively 
accessing the data base, you must be careful not to lock out large or critical parts of 
the data base. For a complete discussion of DMS locks, refer to data base management 
system (DMS) system support functions user guide/programmer reference, UP-8272 
(current version). 


Follow the same concurrency principles as for designing any DMS batch or online 
program. That is, divide the work into small, independent units (success-units) and 
commit or roll back the work done in that unit before going on to the next unit of work. 


Without the success-unit concept, it is easy to design a program that locks out other 
users from accessing the data base. This becomes especially noticeable when others 
are using the data base interactively, the usual case with MAPPER 80. In general, DMS 
releases locks when your program calls the MP#SOF function or when MAPDMS returns 
an abnormal status (other than OOnn). 


You cannot update a report while another user is referencing it or trying to update a 
report. The status error 0100 indicates that one user is trying to reference a report that 
another user is updating or referencing. 
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6.5. MAPDMS EXAMPLE 


Figure 6—2 shows a sample COBOL program that interfaces with MAPPER 80 through 
the MAPDMS utility. Note that the group item, PACKET (in working-storage), is used to 
pass information from this COBOL program to MAPPER 80. The DATA-AREA contains 
the records that are written into the report. 


The following options were used to compile the program: 


AXNON=NO AXREF=NO CALLST=YES CDMIO=YES CMCSST=NO 
CPYTXT=YES DIAG=YES DIAGWN=YES PIPS=5 IMSCOD=NO 
LIST=YES LNKCON=YES LSTREF=YES LSTWTH=120 MAP=NO 
MXNON=NO MXREF=NO OBJLST=NO OBJMOD=YES PAGOVF=NO 
SPRLST=NO SPROUT=3 PROVER=NO SYNCHK=NO TRNADR=YES 
TRUNC=YES 


The compile stream used for the program example in Figure 6—1 follows: 


// JOB MPDMST1 

// OVC 20 = =// LFD PRNTR 

// DVC 5@ = =// VOL MAPPER 

// LBL MAPPERSOBJ // LFD MAPOBJ 
// DVC 50 =// VOL MAPPER 

// LBL MAPERR // LED ERRFIL 
// WORK1 

// WORK2 

// WORK3 

// EXEC COBL74 

// PARAM OBJ=MAPOBJ 

// PARAM CALLST=YES 

// PARAM ERRFIL=MPDMERR/ERRFIL 


/$ 
(Place program here) 
/* 
/& 
// FIN 
NOTE: 


The file MAPERR.MAPPER is used optionally by the error file processor and will contain 
the list of errors from the compile. This file must be allocated before program 
compilation by using the following allocate statement: 


AL MI,FI=MAPERR, VSN=MAPPER, SIZ=2,INC =2 
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Explanation: 


This sample COBOL program reads a MIRAM data file (MPDTAIN) and converts it into a 
MAPPER 80 report. MAPDMS stores the report in mode 102, type B, and gives it the 
next available RID number (lines 80-81 and 88-89). 


The CALL ‘MP#SON’ function call on line 75 signs you onto MAPPER 80 via the 
MAPDMS utility. 


The CALL ‘MP#OPN’ function call on line 83 opens mode 102, type B, and prepares to 
create a new report. 


The program then reads one record from file MPDTAIN and writes this record to the 
report via the MP#LLN function call. 


This loop is repeated until eight records are written. 


The CALL ‘MP#CLS’ function call on line 91 closes the mode and writes the report to 
the data base. 


The CALL ‘MP#SOF'’ function call on line 95 signs you off MAPPER 80 software. 
The following job stream links and executes this COBOL program: 
Link phase: 


// JOB LNKMPDMS,,, 1E900 
// DVC 20 // LFD PRNTR 
// DVC 50 // VOL MAPPER 
// LBL MAPPERSOBJ // LFD OBJ 
// OVC 5@ // VOL MAPPER 
// LBL MAPPERSLOD // LFD LOD 
// WORK1 
// WORK2 
// EXEC LNKEDT 
// PARAM OUT=LOD 
/$ 
LOADM MPDMSL 
INCLUDE MAPDMS ,OBJ 
INCLUDE MAPDMA,OBJ 
INCLUDE MAPDMC,OBJ 
/* 
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Ecce Execute phase: 


// DVC 20 // LFD PRNTR 

// DVC 5@ // VOL MAPPER 

// LBL MAPPERSLOD // LFD LOD 
// DVC 5@ // VOL MAPPER 

// LBL MPDTAIN // LFD MAPIN 
// SFT DLOAD=(15, 7000) 

// EXEC MPDMSL,LOD 

/& 

// FIN 


NOTE: 


MPDMS is the object module of the COBOL program. MAPDMA and MAPDMC must be 
included to run MAPDMS. 


oe | 
cq: ak @e.acae 
DWM SRR BIN a 
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IDENTIFICATION BCIVISION, 

PROGRAM-ID: MPDMS 

AUTHOR WAH AND SLA- 

®REMARKS, THIS FROGPAM CALLS PMAPOMS TC CREATE 
A MAPFER REPORT FROF A PIRAM FILE- 


a ee ee ee ee + & © & @ & & Pw & £ 


ENVIRONMENT DOIVISICN.- 
CONFIGURATION SECTION. 
SCURCE-COMPUTER. UNIVAC-OS3. 
OU JECT-CCMFUTERe UNIVAC-OS2. 


INPUT-OUTPLT SECTION. 
FILE-CONTRCL - 

SELECT MPOTAIN 

ASSIGN TO DISK-MAPIN-F.- 


ee we ke & FR & RR F BR ere ere eek er kk & 


DATA DIVISION 
FILE SECTION 
FO MPDTAIN 
LABEL RECORD IS STANDARD 
°4°  INPUT-RECORD - 
"5 STATUS-CODE xe). 
"5 STATUS-DATE ods 
15 BY-IN > Xe). 
15° PRODUCT-TYFE PIC X(¥). 
"5 SERIAL“NUMEER PIC ¥le)de 
15 PRODUCT-COST PIC ¥€e), 
"5 ORDER-NLUMBER PIC 9(5). 
"5S CUSTOMER-CCDE PIC x€ady 
“5 PRODUCTION-PLAN PIC 96). 
"5 PRODUCTION-ACTUAL PIC ¥COI.e 
15 SHIPPING-DATE PIC 9Cod. 
“SS SHIPPING-ORDER PIc aS), 
"5 SPECIAL~-CODE PIC x(€2). 
“5 REMARKS PIC x5). 
“S§ FILLER PIC ACEI)» 
WORKING-STORAGE SECTION, 
4 PROGRAM-INDICATOR. 
"5S REC PIC ¥- 
PACKET 
"2. RETURN-STATUS PIC 9(4) VALUE ZEROS. 
Ye OPTION PIC XX VALLE SPACES. 
“2 OPTION2 PIC XX VALLE SPACES. 
"2 MODE-NO PIC 9¢€2) VALUE ZEROS, 
"2 > XTYPE PIC K WALUE SPACE. 
M2 RID-NO PIC 9(3) VALUE ZERCS. 
92 LINE-LENGTH-P PIC 9C2) CCMF=3 VALUE 
*2 C-LINE-NO PIC 9C€S) COMP-3 WALUE 
"2 NO-OF-LINES PIC 9€5) COMP-3 VALUE 
ut DATA-AREA 
3s LINE-LENGTH PIC 9€3) COMF VALUE ZERCS: 
5 LINE-RECCRD-D, 
17 LINE-TAE PIC X VALUE =795°. 
17 LINE-RECORD PIC X€79) VALUE SPACES. 
"4 DATA~AREA-O- 
yS USER-ID PIC X€12) VALUE “JLOE 


“4 





Figure 6-2. Sample COBOL Program to Interface MAPPER 80 via MAPDMS Utility (Part 1 of 3) 
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ES 


& Et 64 us PASSWRD PIC X(€6) VALUE SPACES. 
C62 * 

sary hat rn eunewe ene eee th Peete oe teh vee ® 
Poe bh « 
Utes PROCEDURE DIVISION 
PGT 66 ® 
Cee? « * & eke we eR te RH MR yee we & 4 oe 2 & 2 wD 
Pur oR * THE MAIN-LINE PROGRAM CALLS IN THE LCWER*LEVEL 
“G76S = MODULES TO DO THE ACTUAL WORK UF THE FROEGRAPM. 
Pere « THIS CENTRALIZES THE KEY LOGIC OF THe PROGRAM, 
o071 ec eR RR eee eR RH Fe KTH HH ee eee 
"3°72 * 
mye 7? MAIN-LINE. 
Foes PERFORM HOUSE-KEEPING, 
are hey A>) CALL “MPHSON” USING PACKET 
uP 7é IF RETURN~STATLUS NCT EGUAL ZEROCS THEN 
°O°77 DISPLAY “THIS IS RETURN STATUS SON:%, RETURN@ STATUS: 
fut7e MOVE “LD% TO OPTION1> 
"Ul79 WOVE “FR~ TO OFTIONZ. 
Fuylgo MOVE “152° TO MODE-NO.4 
ured MOVE “B°” TO XTYPE. 
76°82 DISPLAY REC ,» “PACKET” » PACKET » “DTA ARA~ »¢ DATA~AREA-O. 
7 eee CALL “MPHOFN” LSING PACKET , DATA-AREA-O©.- 
Pures DISPLAY REC 9 “PACKET” » PACKeT » “OTA ARA~ 4 DATA~AREA-Oe 
wuts MOVE SPACES TO OPTION? » OPTION<: 
cree IF RETURN-STATUS NOT EGUAL ZEROcS THEN 
"O0C°8&7 DISPLAY “THIS IS RETURN STATUS OPN3°, RETURN-STATUS 
rOTER PERFORM PROCESSING-LOOP VARYING REC FROM 1 65Y 1 UNTIL 
Fgras REC = 9, 
TuT9"7 MOVE SPACES TO OPTION » OPTIONE, 

@ raegt CALL “MPHCLS* USING PACKET 
rorg? IF RETURN-STATLS NOT EQUAL ZEROES THEN 
rutgz DISPLAY “THIS IS RETURN STATUS CLS3%, RETURN-STATUS. 
"U°94 DISPLAY “THIS IS THE RID-“NO CREATED?:° » RID-NC- 
FEEOS CALL “MPHSOF” USING PACKET. 
"E96 IF RETURN-STATUS NCT EQUAL ZEROES THEN 
eacg9?7 DISPLAY “THIS IS RETURN STATUS SOF:%, RETURN-STATUS- 
futgR PERFORM END-OF-JOB-RIN:; 
60°99 STOP RUN; 
"ate" « 
°C1¢1 eereeeeneeexeeeam th et ee nkeeoaneeree ea ene 
ro1ez * THE HOUSE-KEEPING MODULE OPENS FILES AND DCES 
"5407 * OTHER INITIALIZATIONS.- 
PUTS see ew nrk weer ek £FekRe Hee ek eR ee 
Fats * 
art nner.) HOUSE-KEEPING. 
Poic? CPEN I-0 MPDTAIN. 
TEES . 
Putas se eek een tee te Peek eke vee te 2 
"14% * THE PROCESSING-LOCP COES THE MAJOR WCRK CF THE 
C0974 * PROGRAM. IN THIS CASE, 17 READS THE MIRAM INPUT 
ro412 * FILE. 
Laeee ie id Se 
Pot4qe . 
bg ae as fo PROCESSING-LOOP, 
ath oe READ MPDTAIN 
5042 AT END MOVE 9 TO REC, 
rete MOVE INPUT-RECCRD TO LINE“RECGRD- 
PUTTS MOVE 8° TO LINE-LENGTH: 
rite" CALL “MPHLLN~ LSING PACKET DATA-~AKEA- 


Figure 6-2. Sample COBOL Program to Interface MAPPER 80 via MAPDMS Utility (Part 2 of 3) 
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IF RETURN-STATLS NCT EQUAL ZEROES THEN 

DISPLAY “THIS IS RETURN STATUS LLN:*, RETURN-STATUS. 
DISPLAY REC, 
DISPLAY REC » “PACKET” » PACKET 4» “DATA AREA” 4 DATA-AREA. 


. eke eRe wee ee ee he RH eee He ee 
THE END-OF-JOB-RTN TERMINATES THE PRCGRAP AFTER 


CLOSING FILES. 
eee eweeeek &£ 2 8 &#et+¢ ¢ £6 # #¢ &@ &£ & & 


® 
x 
¥ 
¥ 
" 
® 


END-OF-JOS-RTN. 
CLOSE MPOTAIN. 





Figure 6-2. Sample COBOL Program to Interface MAPPER 80 via MAPDMS Utility (Part 3 of 3) 
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Appendix A. MAPPER 80 Error Messages 


MAPPER 80 can issue error messages during an interactive session. These error 
messages appear on line 24 of the screen. 


<ERR 090>(EXCEEDED REPORT LINE LIMIT) 
Number of lines in the specified RID reached allowable limit (99999). Correct 
and retry. 


<ERR 091>(NO FREE RID IN THIS TYPE) 
Number of RIDs in this type reached allowable limit (999). Delete RIDs or go to 
another type or mode. 


<ERR 092>(A LOCK—OUT HAS OCCURRED! PLEASE RE-TRY IN A MOMENT) 
Specified RID is in use. Try again after a short wait. 


<ERR 093>(NO SPACE IN MAPPER 80 DATA-BASE) 
See MAPPER 80 coordinator or take job dump. 


<ERR 094>(END REPORT WAS REACHED BEFORE FUNCTION COMPLETED) 
Last line was reached during updating. All updating is done up to that point. 


<ERR 095>(THERE ARE NO DATA LINES IN THIS REPORT) 
Specified RID contains only headers, no data lines found. Correct and retry. 


<ERR 098>(SYSTEM ERROR OCCURRED!) 
See MAPPER 80 coordinator or take a job jump. 
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<ERR 100>(USER-ID IS INCORRECT) 
Specified user-id not found at sign on. Possible causes: 


1. Incorrect registration of the user-id. 
2. Incorrect user-id. 
Correct and retry. 


<ERR 109>(USER-ID IS NOT REGISTERED) 
Specified user-id not found at sign-on. Correct and retry. 


<ERR 110>(INVALID DEPARTMENT NUMBER) 
Specified department does not exist at sign-on. Correct and retry. 


<ERR 111>(CANNOT USE DEPARTMENT NUMBER 0) 
Correct and retry. 


<ERR 115>(YOU MUST SIGN-ON TO AN EVEN MODE NUMBER) 
Correct and retry. 


<ERR 116>{INVALID TYPE SPECIFIED) 
Incorrect type specified in FGEN function. Correct and retry. 


<ERR 117>(INVALID LINE LENGTH) 
Invalid line length specified in FGEN function. Correct and retry. 


<ERR 118>(SPECIFIED TYPE DOESN'T EXIST) 
Specified type not registered in GEN function. Type still in open status. Correct 
and retry. 


<ERR 120>(INVALID USER PASSWORD) 
Incorrect user password specified at sign-on. Correct and retry. 


<ERR 130>(USER’S MODE DOESN'T EXIST) 
Default MODE specified on user-id list does not exist. See MAPPER 80 
coordinator. 


<ERR 135>(RID O DOESN'T EXIST) 
RID O doesn’t exist for FGEN function. Correct and retry. 
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<ERR 136>(UNRECOVERABLE DBMS ERROR OCCURRED) 
See MAPPER 80 coordinator or take a job dump. 


<ERR 137>(INVALID FIELD NUMBER) 
Correct and retry. 


<ERR 138>(SPECIFIED MODE DOESN'T EXIST) 
Correct and retry. 


<ERR 139>(SPECIFIED MODE ALREADY EXISTS) 
Correct and retry. 


<ERR 140>(INVALID TYPE OR RID PARAMETER) 
When -t specified for the RID and type, the type specified was different from 
the current displaying result type. Correct and retry. 


<ERR 141>(INVALID TYPE PARAMETER) 
Incorrect type specified. Correct and retry. 


<ERR 145>(SYSTEM ERROR OCCURRED IN FGEN PROCESSING) 
Unrecoverable error occurred during FGEN processing. See MAPPER 80 
coordinator or take job dump. 


<ERR 146>(INVALID EDIT CODE) 
Correct and retry. 


<ERR 147>(INVALID KANJI FIELD SIZE) 
Length of Kanji field is not even. Correct and retry. 


<ERR 148>(KANJI FIELD SIZE 1S GREATER THAN ALLOWABLE MAX) 
Kanji field size is greater than 240 characters. Correct and retry. 


<ERR 149>(SPECIFIED TYPE DOESN'T EXIST) 
Correct and retry. 


<ERR 150>(CANNOT SPECIFY ‘’—’’ FOR RID) 
A hyphen (-) was specified for the RID with no report or result currently being 
displayed. Correct and retry. 
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<ERR 151>(INVALID RID CHARACTERS SPECIFIED) 
Correct and retry. 


<ERR 152>(RID PARAMETER WAS NOT SPECIFIED) 
Correct and retry. 


<ERR 158>(THE RID DOESN'T EXIST) 
Specified RID does not exist. 


<ERR 159>(THE RID IS ALREADY CATALOGUED) 
Specified RID already exists. 


<ERR 160>(INVALID MODE SPECIFIED FOR ISSUING REPORT) 
First mode specified is incorrect. Correct and retry. 


<ERR 165>(INVALID PARAMETER SPECIFIED) 
Incorrect character entered in response to the FGEN screen. Valid responses 
are: Y, M, E, C, or N. Retry with correct response. 


<ERR 166>(BAD CHARACTER ENTERED) 
Incorrect character entered in response to the FGEN screen. Valid responses 
are: Y or E. Retry with correct response. 


<ERR 167>(INVALID FORMAT NUMBER) 
Valid formats range from 1 through 6. Correct and retry. 


<ERR 168>(INPUT PARAMETER ERROR) 
No parameter specified on FGEN screen. Correct and retry. 


<ERR 169>(NUMBER OF FIELDS IS GREATER THAN ALLOWABLE MAX) 
Maximum number of fields is greater than 75. Correct and retry. 


<ERR 170>(REP,ADON: SECOND TYPE !IS BAD; MA,MAU: FIRST TYPE IS BAD) 
When executing REP or ADON function, the receiving (or second) specified 
type is invalid. When executing MA or MAU function, the issuing (or first) 
specified type is invalid. Correct and retry. 


<ERR 175>(LINE LENGTH GREATER THAN ALLOWABLE MAX) 
Line length specified in FGEN function is greater than line length specified in 
TGEN function. Correct and retry. 
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<ERR 176>(FIELD LENGTH IS GREATER THAN ALLOWABLE MAX) 
Correct and retry. 


<ERR 177>(REQUIRED PARAMETERS MISSING) 
Field length or edit code is missing on FGEN screen. Correct and retry. 


<ERR 178>(NUMERIC FIELD SIZE IS GREATER THAN 16 CHARACTERS) 
Numeric fields cannot be greater than 16 characters. Correct and retry. 


<ERR 179>(CANNOT CHANGE THE FORMAT NO. WHEN CONTINUING INPUT) 
Enter the same format number when continuing format description on more 
than one FGEN screen. Correct and retry. 


<ERR 180>(REP,ADON: SECOND RID IS BAD: MA,MAU: FIRST RID IS BAD) 
When executing REP or ADON function, the receiving (or second) specified RID 
number is invalid. When executing MA or MAU function, the issuing (or first) 
specified RID number is invalid. Correct and retry. 


<ERR 190>(INVALID LINE NUMBER) 
The Line function on line 0 can only contain numbers. Correct and retry. 


<ERR 199>(INVALID OPTIONS COMBINATIONS) 
See MAPPER 80 manual functions user guide, UP-9735 (current version) for 
valid option combinations. Correct and retry. 


<ERR 200>(INVALID NUMBER FOR RL) 
The RL function on line O can have the following entries: 


1. A plus sign (+) 

2. A minus sign (-) 

3. Any number 

4. Either sign followed by any number. 


Correct and retry. 
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<ERR 210>(INVALID FORMAT NUMBER) 
The FMT function on line O can have the following entries: 





1. Any number from 1 through 6 
2. A blank (means basic format; O) 


Correct and retry. 


<ERR 220>(INVALID FORMAT FOR ISSUING REPORT) 
First format specified is invalid. Correct and retry. 


<ERR 240>(INVALID NUMBER OF ADD LINES) 
Correct and retry. 


<ERR 241>(INVALID NUMBER OF DELETE LINES) 
Correct and retry. 


<ERR 250>(INVALID NUMBER OF COPIES FOR DUP LINES) 
When using the DUPLICATE LINES function 





]}nxM 


an invalid value was entered for n. Correct and retry. 


<ERR 255>(PASSWORD MUST BE ENTERED) 
Enter password and retry. 


<ERR 256>(INVALID PASSWORD) 
Correct and retry. 


<ERR 260>(CANNOT USE PREDEFINED LINES) 
RID O for this report type does not allow the m parameter in the following 
function: 
]}n+Mm 


Correct and retry. 
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<ERR 261>(INVALID PREDEFINED LINE NUMBER) 
M parameter in the following function is invalid: 


}ne+o 


Correct and retry. 


<ERR 265>(CANNOT UPDATE BECAUSE UPDATE RESULT DOESN'T EXIST) 
@UPD or @DEL run function was entered when no result existed, or @RSM 
run function entered when no other function was active. 


<ERR 266>(NO CONTINUATION FUNCTION !S CURRENTLY ACTIVE) 
@RSM run function was entered when no continuation function was active. 


<ERR 270>(INVALID LINE SPACING) 
Valid options are 1 through 9. Correct and retry. 
<ERR 318>(ONLY TYPE—N VARIABLES CAN BE INSERTED INTO TYPE—N 
VARIABLES) 
If second parameter of an @INS run function is a variable of type-N, the first 
parameter must be type-N: 


@ INS V1,V2 


where: 
v1,V2 
Are both type-N. 
Correct and retry. 
<ERR 350>(INVALID LINE-LENGTH) 
Incorrect line length specified in TGEN function. 
Correct and retry. 
<ERR 370>(INPUT BOTH MODE AND TYPE) 


Either the MODE or TYPE was omitted. In the @BRK run function, both of 
these parameters must be specified or omitted. Correct and retry. 


<ERR 371>(INVALID MODE NUMBER) 
MODE specified by @BRK run function cannot be used in this run. 
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<ERR 372>(MODE DOES NOT EXIST) 
Correct and retry. 


<ERR 373>(TYPE DOES NOT EXIST) 
Correct and retry. 


<ERR 374>(CANNOT USE RESERVED WORDS ON OUTPUT LINE) 
Reserved words cannot be described on the output line. Enter the reserved 
word into some variable. Then output the variable. 


<ERR 375>(CANNOT WRITE DEFINED VARIABLE ON OUTPUT LINE) 
Define variables before describing them on an output line. 


<ERR 376>(DATA LENGTH IS TOO LONG) 
Length of output line is greater than designated line length for the type. 
Shorten the output line and retry. 


<ERR 377>(KANJI DATA 1S NOT ALLOWED IN THIS FIELD) 
Position of the type-N variable in the output line does not correspond to 
position of the edit-code-7 field. Correct and retry. 


<ERR 378>(CANNOT USE RESERVED WORD) 
Reserved words cannot be specified in @GTO, @RSR, @ESR, or @RUN run 
functions. Describe them by a variable in an @CHG run function. This variable 
can then be used in other run functions. Correct and retry. 


<ERR 379>(LABEL EXCEEDS 3 CHARACTERS) 
Labels of a @GTO or @RSR run function must be a number in the range of 1 
to 999. Correct and retry. 


<ERR 380>(INVALID LABEL) 
Labels of a @GTO or @RSR run function must be a number in the range of 1 
to 999. Correct and retry. 


<ERR 381>(UNDEFINED LABEL) 
Label specified by a @GTO or @RSR run function does not exist. Correct and 
retry. 


<ERR 382>(YOU ARE TRYING TO GO TO A LINE BEYOND END OF REPORT) 
Specified line number is beyond the last line of the run report. Correct and 
retry. 
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<ERR 383>(YOU ARE TRYING TO GO TO A LINE BEFORE HEADER) 
Specified line number designates a header line or a line before the header. 
Correct and retry. 


<ERR 384>(CANNOT USE DEFINED VARIABLE FOR LABEL) 
Cannot specify a new variable description as a label. Define new variable 
before using it as a label. Correct and retry. 


<ERR 385>(THE ONLY VARIABLE TYPE ALLOWED FOR LABEL ARE A”, ‘‘I’’) 
Correct and retry. 


<ERR 386>(INVALID PARAMETER) 
An extra field is in the parameter list, or a field is missing in the parameter list. 
Correct and retry. 


<ERR 387>(ONLY 1 PARAMETER IS ALLOWED IN 2ND FIELD) 
Second field of the @CHG run function contains more than one parameter. 


@CHG V1 23 


Correct and retry. 


<ERR 388>(INVALID PARAMETER IN 2ND FIELD) 
Second field of the @CHG run function is not a variable (Vn) or INPUTS. 
Correct and retry. 


<ERR 389>(INVALID USE OF VARIABLE IN 2nd FIELD) 
Second field of the @CHG run function cannot be a partial variable: 
Wrong example: 


@CHG Vn(a-b) Vm 


Correct and retry. 


<ERR 390>(INCOMPLETE VARIABLE IN ISSUING DATA) 
Issuing data of the @CHG run function cannot be a newly defined variable: 
Wrong example: 


@CHG Vn VnI4 


Correct and retry. 
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<ERR 401>(INVALID PARAMETER) 
Correct descriptions of the @RNM run function subfields are: 


Q@RNM -n 
@RNM,MODE, TYPE,RID -n 


Correct and retry. 


<ERR 402>(DUPLICATE RESULT NUMBER) 
The RID and the —n parameters have the same value. Change one of these 
parameters and retry command. 


<ERR 403>(CANNOT USE VARIABLE FOR PARAMETER) 
Correct and retry. 


<ERR 404>(THE ONLY RENAMED RIDS ALLOWED ARE -0,-1,—2,—3,—4) 
Correct and retry. 


<ERR 405>(INVALID SFS SCREEN—NAME) 
The screen-name should be: 
UXxx 
where: 


XXX 
Is a number in the range of 1 to 999. 


Correct and retry. 


<ERR 407>(DATA SIZE EXCEEDS 1920 CHARACTERS) 
Total number of characters in input and output data exceeds 1920. Correct 
and retry. 


<ERR 408>(USE VARIABLE FOR PARAMETER) 
Parameters that receive input data in the @SFS run function must be variables. 
Correct and retry. 


<ERR 409>(SFS SCREEN—NAME DOESN'T EXIST) 
Correct and retry. 
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<ERR 391>(INVALID USE OF TYPE-N VARIABLE) 
If the receiving variable of a @CHG run function is type-N, the issuing variable 
‘ must also be type N. Both variables must be the same length. Correct and 
retry. 


<ERR 392>(CANNOT UPDATE RID 0) 
Line update functions cannot be performed on RID O. 


<ERR 393>(LOCK MUST BE DONE BEFORE YOU CAN UPDATE REPORT) 
Report lock must be done before performing the following run functions: 


@LN+, @LN-, @LNX, @WRL. 


Lock the report (using @LOK) before updating or writing it. 


<ERR 394>(YOU LOCKED DIFFERENT REPORT) 
You did not lock the report you tried to update. Lock the report (using @LOK), 
then execute the update or write command. 


<ERR 395>(INVALID NUMBER OF ADD LINE) 
You tried to add lines beyond the range limit. All lines up to the limit were 
added. 


<ERR 396>(INVALID PREDEFINED LINE NUMBER) 
Predefined line number of the @LN+ run function must be a space or a 
number from O to 9. Correct and retry. 


<ERR 397>(CANNOT UPDATE LINE-1) 
Line number of a @LN+ run function cannot be 1. Line 1 cannot be updated. 


<ERR 398>(CANNOT UPDATE BEYOND END LINE) 
Specified line number of the @LN+ run function is beyond the END REPORT 
line. Lines are added up to this point. 


<ERR 399>(CANNOT ADD LINE INTO HEADER) 
The specified line number of the @LN+ run function is in the header lines. 
Correct and retry. 


<ERR 400>(INVALID LABEL RUN WILL LOOP) 
The specified line number of the @RSR run function designates the line on 
which the @RSR run function is described. Correct and retry. 
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<ERR 420>(INVALID EDIT-CODE IN RID 0) 
Invalid edit-codes are in RID O. Correct and retry. 


<ERR 421>(SYSTEM ERROR OCCURRED (WRL)) 
System error occurs during internal processing of Kanji characters. See 
MAPPER 80 coordinator or take job dump. 


<ERR 422>(CANNOT SPECIFY RESULT IN THIS FUNCTION) 
Correct and retry. 


<ERR 423>(INVALID USER-ID) 
User-id not registered to execute the specified run. 


<ERR 424>(CANNOT EXECUTE THE RUN ON THIS WORKSTATION) 
Workstation not registered to execute the specified run. 


<ERR 425>(THERE IS INCORRECT MODE IN RUN-LIST) 
Incorrect registration of accessible modes in the run list. 


<ERR 426>(NUMBER OF LINES OF REPORT EXCEEDS 99999) 
Line duplication carried out until END REPORT reached. 


<ERR 427>(INVALID RUN REPORT IN RUN-LIST) 
Registration of mode-type-RID in the run-list is incorrect. Correct and retry. 


<ERR 428>(ISSSUING FIELD LENGTH DOES NOT MATCH RECEIVING 
VARIABLE) 
Correct and retry. 


<ERR 450>(INVALID MARK (KANJI)) 
Kanji characters cannot be entered in this mask. Correct and retry. 


<ERR 451>(UNRECOVERABLE ERROR OCCURRED IN DATA MANAGEMENT) 
Error occurred in data management request to the workstation file. See 
MAPPER 80 coordinator or take job dump. 
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<ERR 410>(OUTPUT DATA DOES NOT MATCH SFS SCREEN ATTRIBUTE) 
Size or character type of output data specified in the @SFS run function does 
not match the cataloged screen format. Correct and retry. 


<ERR 411>(INVALID INPUT DATA ON SFS SCREEN) 
Correct and retry. 


<ERR 412>(INVALID LINE NUMBER) 
Starting line number of the @RDL, @RDC, and @RLN run functions should not 
be zero. Correct and retry. 


<ERR 413>(CANNOT SPECIFY ‘‘RLN’’ BEFORE ’’RDL’’) 
Execute @RLN function after the @RDL function. Correct and retry. 


<ERR 414>(CANNOT USE “INPUT$’’) 
Reserved word INPUT$ cannot be used as issuing data in the @CHG run 
function. 


<ERR 415>(CANNOT SPECIFY 0 FOR NO. OF LINE) 
Number of lines processed cannot be zero in the @RDC run function. Correct 
and retry. 


<ERR 416>(SPECIFY PARTIAL VARIABLE IN RECEIVING AREA) 
Receiving data must be a partial variable [Vn(a-b)] in the @INS run function. 
Correct and retry. 


<ERR 417>(DIFFERENT DATA SIZE BETWEEN TWO FIELDS) 
Data sizes of the issuing and receiving fields are not equal in the @INS run 
function. Correct and retry. 


<ERR 418>(MUST BE VARIABLE OF TYPE N) 
Insert only Kanji data into type-N variables. Correct and retry. 


<ERR 419>(CANNOT INSERT VARIABLE OF TYPE N) 
A type-N variable can't be inserted into a non-type-N variable. Correct and 
retry. 
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<ERR 460>(INVALID FUNCTION NAME) 
Specified function name is invalid. Possible causes are: 


1. The first character of the function name is not a letter (A through Z) or the 
caret (A) character. 


2. The function name is not cataloged. 


Correct and retry. 


<ERR 461>(FUNCTION NAME IS TOO LONG) 
Length of the specified function name is greater than 4 characters. Correct and 
retry. 


<ERR 462>(FUNCTION NOT ALLOWED) 
Workstation will not accept the specified function. Try a different function or 
enter the caret character (/\), transmit, and then try a different function. 


<ERR 463>(INVALID POSITION OF PARAMETER FOR LINE-—O) 
SOE position of the line O function (LINE,FMT,etc) is invalid. Correct and retry. 


<ERR 464>(INVALID PARAMETER FOR LINE MODIFICATION FUNCTIONS) 
Line update function parameter is incorrect. Correct and retry. 


<ERR 465>(CANNOT USE ‘CC’ OR ‘FLD’ FUNCTION WHEN LINES ARE HELD) 
Correct and retry. 


<ERR 470>(INPUT PARAMETER LENGTH SHOULD BE WITHIN 30 
CHARACTERS) 
When using the fast access method for function input, the length of the input 
parameter string cannot be greater than 30 characters. Correct and retry. 


<ERR 471>(PARAMETER LENGTH IS TOO LONG) 
Correct and retry. 


<ERR 472>(INVALID CHARACTER STRING) 
Input parameter contains an invalid character. Correct and retry. 
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<ERR 473>(NO NUMERIC CHARACTERS FOR NUMERIC PARAMETER) 
A numeric parameter does not contain numeric characters. Correct and retry. 


<ERR 474>(TYPE SHOULD BE ‘A’—I’) 
Correct and retry. 


<ERR 475>(NO PARAMETER FOR REQUIRED FIELD) 
Correct and retry. 


<ERR 476>(INVALID REQUEST FOR HOLD CHARACTER) 
Number of characters specified by SHFT function must be greater than the 
number specified in HLD CHR. Correct and retry. 


<ERR 477>(INVALID REQUEST FOR HOLD LINE) 
Number of lines specified by the RL function must be greater than the number 
specified in HLD LN. Correct and retry. 


<ERR 478>(NO NEGATIVE NOS ALLOWED IN HLD LN FIELD) 
The HLD LN field must contain only positive numbers (or zero). Correct and 
retry. 


<ERR 479>(INVALID FORMAT NUMBER) 
FMT characters must be numeric (O through 6) or blank (implies format 0). 
Correct and retry. 


<ERR 480>(CANNOT MODIFY HELD LINES) 
Line update functions cannot be performed on held lines. 


<ERR 481>(CANNOT MODIFY LINE-1) 
Line update functions cannot be performed on line 1. 


<ERR 482>(CANNOT MODIFY BEYOND THE LAST LINE) 
Line update functions cannot be performed in the area after the END REPORT 
line. Add lines, then use line update. 


<ERR 483>(INVALID SOE POSITION) 
The SOE should be on the top line of the screen. Move SOE and retry. 
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<ERR 484>(CANNOT INCLUDE LAST LINE IN HELD LINES) 
END REPORT line cannot be included in the HLD LN function. 


<ERR 485>(INVALID PARAMETER FOR MASK) 
Parameter input to the mask is incomplete. Correct and retry. 


<ERR 486>(CANNOT UPDATE AREA BEYOND THE LINE LENGTH) 
Area is updated beyond the designated line length of the report, and the report 
cannot be updated beyond the length of the report. 


<ERR 487>(CANNOT MODIFY HEADER LINES) 
The only line update function that can be performed on header lines is the SOE 
update function. All others are invalid. 


<ERR 488>(NO TAB CHARACTER WAS ENTERED IN A DESIGNATED TAB 
COLUMN) 
When performing an update line function, enter a tab code character in a tab 
designated column. Correct and retry. 


<ERR 489>(NO NUMERIC CHARACTER ENTERED IN NUMERIC FIELD) 
Correct and retry. 


<ERR 490>(A BLANK WAS ENTERED TO A FIELD WHICH CANNOT BE BLANK) 
During a line update function, a blank was entered to a nonblank field 
(edit-code-5). Correct and retry. 


<ERR 491>(NO ALPHA CHARACTER ENTERED IN DESIGNATED ALPHA FIELD) 
Designated alphabetic parameter has nonalphabetic characters. Correct and 
retry. 


<ERR 492>(CANNOT INPUT KANJI ON OPTION LINE) 
Kanji characters can’t be entered on the option input line of the mask. Correct 
and retry. 


<ERR 493>(CANNOT ENTER KANJI CHARACTERS ON LINE 0) 
Correct and retry. 
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<ERR 494>(CANNOT UPDATE RIGHT COLUMN OF KANJI CHARACTER) 
The right byte of the 2-byte Kanji character can’t be changed. 


<ERR 495>(CANNOT UPDATE LEFT COLUMN OF KANJI CHARACTER) 
The left byte of the 2-byte Kanji character can't be changed. 


<ERR 496>(INVALID KANJI CHARACTER) 
Incorrect update to a Kanji character. Correct and retry. 


<ERR 497>(KANJI DATA IS NOT ALLOWED ON THIS LINE) 
During a line update function, Kanji characters were entered on a line with no 
edit-code-7 fields. Correct and retry. 


<ERR 498>(CANNOT INPUT KANJI) 
During a line update function, Kanji characters were entered in a non-Kanjji field. 
Correct and retry. 


<ERR 499>(INPUT IS IGNORED. PLEASE RE-TRY) 
Data format of the input is incorrect. Correct and retry. 


<ERR 500>(CANNOT USE COORDINATOR’S FUNCTION) 
Only a MAPPER 80 coordinator can use coordinator functions. 


<ERR 501>(INVALID FUNCTION REQUEST) 
Update functions cannot be performed on reports of odd modes. 


<ERR 502>(CANNOT DESIGNATE RID O IN THE FUNCTION) 
Function cannot process the RID O report. 


<ERR 503>(CANNOT DESIGNATE RID IN THE FUNCTION) 
Function cannot process the RID O report. 


<ERR 504>(CANNOT DESIGNATE RID 0 IN THE FUNCTION) 
Function cannot process RID O as the second RID specification. Correct and 
retry. 
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<ERR 520>(THERE IS NO PREVIOUS RESULT) 
PRED function executed when no previous result existed. 


<ERR 548>(CANNOT PROCESS MULTIPLE RIDs) 
SU function does not process multiple RIDs. It must operate on one RID at a 
time. 


<ERR 549>(TOO MANY SUBFIELDS IN CHARACTER-SPECIFYING FIELD) 
in the @RUN run function, the number of subfields in the character-specifying 
field is greater than the number of parameters in the parameter specifying field. 
Correct and retry. 


<ERR 550>(TOO MANY NESTED SUBROUTINES) 
@RSR run function can be nested to 10 levels only. 


<ERR 551>(INVALID ARITHMETIC DATA) 
Data to be calculated is not in the correct numerical format. Correct and retry. 


<ERR 552>(INVALID USE OF ESR FUNCTION) 
An @ESR run function can only be the last statement of a subroutine. Every 
@ESR function must be paired with a @RSR function. Correct and retry. 





<ERR 553>(CANNOT USE DEFINED VARIABLE AS A BIAS) 
In the @ESR run function, a newly defined variable cannot be used as a bias. 
Define variable before using and retry. 


<ERR 554>(INVALID VARIABLE TYPE FOR BIAS) 
Only a variable of type A or | can be the bias of an @ESR run function. Correct 
and retry. 


<ERR 555>(INVALID BIAS) 
Possible causes of this error: 
1. Bias is not in the correct numerical format. 
2. Format of the bias is too long. 


Correct and retry. 


<ERR 556>(BIAS EXCEEDS END LINE) 
Line specified by the bias is not in range of the run report lines. Correct and 


retry. & 
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<ERR 505>(PLEASE DISPLAY AGAIN: THIS REPORT WAS UPDATED!) 
While displaying this report, another user updated it. Redisplay the report to 
see updated version. 


<ERR 510>(INVALID DELETION OF * IN MASK) 
Correct and retry. 


<ERR 511>(BAD KEY FIELD: TAB CODE WAS SPECIFIED AS KEY) 
Tab code column specified as the key-field in the SORT function mask. Correct 
and retry. 


<ERR 512>(INVALID SORTING PRIORITY) 
Incorrect sorting levels specified in the SORT function mask. Correct and retry. 


<ERR 513>(MISSING KEY FIELD) 
No parameter specified as the SORT key. Correct and retry. 


<ERR 514>(INVALID SORTING PRIORITY) 
Priority numbers of the SORT keys fields are not consecutive. Correct and 
retry. 


<ERR 515>(MAX LENGTH OF SORT FIELD EXCEEDED) 
Total length of SORT field exceeds limit of 36 characters. Correct and retry. 


<ERR 516>(DUPLICATE SORTING PRIORITY) 
Two SORT fields have the same priority. They must be different. Correct and 
retry. 


<ERR 517>(INVALID SORTING SEQUENCE) 
Errors are in the priority numbers of the SORT fields. Correct and retry. 


<ERR 518>(CANNOT SPECIFY KANJI DATA AS NUMERIC DATA) 
Numeric sorting cannot be specified for Kanji character fields. Correct and 
retry. 


<ERR 519>(INVALID LINE TYPE) 
An error occurred in the line type specification of the SORT mask. Correct and 
retry. 
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<ERR 557>(CANNOT USE DEFINED VARIABLE FOR RUN—NAME) 
A newly defined variable cannot be specified as the run name in the @RUN run 
function. Correct and retry. 


<ERR 558>(INVALID VARIABLE TYPE FOR RUN NAME) 
A variable of type N, F, or | cannot be specified as a run name in the @RUN 
run function. Correct and retry. 


<ERR 559>(LENGTH OF RUN NAME EXCEEDS 12 CHARACTERS) 
Length of the run name must be 12 characters or less. Correct and retry. 


<ERR 560>(RUN COMMAND DATA TRANSFER EXCEEDS LIMIT OF 40) 
Number of variables sent to a second RUN is limited to 40. Correct and retry. 


<ERR 561>(CANNOT USE RESERVED WORD) 
Reserved words cannot be sent to a second run in a data transfer. Set a 
variable to the value of the reserved word, then send the variable. Correct and 
retry. 


<ERR 562>(CANNOT USE DEFINED VARIABLE AS DATA) 
Newly defined variables cannot be sent to a second run in a data transfer. 
Define the variable before sending it in a @RUN run function. Correct and retry. 


<ERR 563>(DATA EXCEEDS 16 BYTES) 
Length of inserting data exceeds 16 characters. Correct and retry. 


<ERR 564>(TOTAL DATA SIZE EXCEEDS 320 BYTES) 
Total length of sending data exceeds 320 characters. Correct and retry. 


<ERR 565>(INVALID DIVISION BY ZERO) 
Correct and retry. 


<ERR 566>(RECEIVING PARAMETER FROM INPUTS IS NOT VARIABLE) 
Parameter that receives data from INPUT$ must be a variable. Correct and 
retry. 


<ERR 567>(TOO MANY PARAMETERS) 
Errors occur in the parameter specification of the @IF run function. Correct and 
retry. 
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<ERR 568>(INVALID VARIABLE COMPARISON) 
Variable compared in the @IF run function is incorrect. Correct and retry. 


<ERR 569>(COMPARISON DATA EXCEEDS 64 CHARACTER) 
Length of the comparison variable is greater than 64 characters. Correct and 
retry. 


<ERR 570>(INVALID ARITHMETIC OPERATOR) 
Comparison expression in the @IF run function is incorrect. Correct and retry. 


<ERR 571>(INVALID EXPRESSION FOR OR CONDITION) 
Incorrect OR comparison expression occurs in the @IF run function. Correct 
and retry. 


<ERR 572>(INVALID EXPRESSION ("*>"’ AND ‘’<’"’) 
There are errors in the range condition of the @IF run function. Correct and 
retry. 


<ERR 573>(INVALID USE OF VARIABLE TYPE-—N) 
Type-N variables can be compared only with other type-n variables. Correct 
and retry. 


<ERR 574>(CHARACTER TYPE DOES NOT MATCH DESIGNATED EDIT—CODE) 
Error in output line. Characters in the tab line do not match the edit-code 
specifications. Correct and retry. 


<ERR 575>(DESIGNATED RUN IS WORKING NOW) 
Run name specified in the @RUN run function cannot be the same as run 
where the command appears (i.e., a @RUN function cannot cail itself). 


<ERR 576>(INVALID RUN NAME) 
Run name specified in the @RUN run function is invalid. Correct and retry. 


<ERR 577>(CANNOT USE VARIABLE AND RESERVED WORD IN OPTION FIELD) 
Correct @SUB run function and retry. 


<ERR 578>(INVALID OPTIONS) 
Incorrect options occur in the @SUB run function. Correct and retry. 
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<ERR 579>(INVALID OPTIONS COMBINATION) 
Options are incorrectly combined in the @SUB run function. Correct and retry. 


<ERR 580>(NO. OF VARIABLES EXCEEDS 40) 
Number of variables receiving data from INPUT$ is greater than 40. Correct 


and retry. 


<ERR 581>(CANNOT HAVE CONTIGUOUS EDIT-CODE-Os) 
Two tab columns can’t be designated contiguously. Correct and retry. 


<ERR 582>(SYSTEM ERROR: ADDRESS OF SFLE IS 0) 
Error occurred in the internal processing of the run. See MAPPER 80 


coordinator or take a job dump. 


<ERR 583>(CANNOT EXCEED 3 CHARACTERS FOR SPECIFYING THE 
CHARACTER FIELD.) 
Correct and retry. 


<ERR 584>(INVALID DESCRIPTION IN CHARACTER FIELD) 
Correct and retry. 


<ERR 585>(INVALID FIELD NUMBER (Fxxx)) 
Character field description Fnnn is incorrect. Correct and retry. 


<ERR 586>(DESIGNATED FIELD EXCEEDS LINE LENGTH) 
Correct and retry. 


<ERR 587>(OVERLAPPING FIELD SPECIFICATION) 
Correct and retry. 


<ERR 588>(LINE LIMIT EXCEEDED) 
Too many slashes are in parameter field. Correct and retry. 


<ERR 589>(REQUIRED FIELD MISSING) 
Correct and retry. 


<ERR 590>(LINE TYPE MUST BE 1 BYTE) 
Line type must be one character in length. Correct and retry. 
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<ERR 591>(MAXIMUM PARAMETER EXCEEDED) 
Number of data items in the parameter field exceeds limit. Correct and retry. 


<ERR 592>(LENGTH OF CHARACTER FIELD IS DIFFERENT FROM PARAMETER 
FIELD) 
The length specified in the parameter field, and number of characters in the 
character field must be the same. Correct and retry. 


<ERR 593>(CANNOT COMBINE EDIT-CODE ‘’7”’ FIELD WITH ANOTHER FIELD) 
Correct and retry. 


<ERR 594>(INVALID EDIT—CODE ’‘7’’ FIELD) 
Correct and retry. 


<ERR 595>(EDIT-CODE AND VARIABLE TYPE DO NOT MATCH) 
In the @RDL, @RLN, and @RDC run functions, variable type must match 
corresponding edit-code for that field. Correct and retry. 


<ERR 596>(EDIT CODE AND DATA TYPE DO NOT MATCH) 
Data type of the character does not match corresponding edit-code for that 
field. Correct and retry. 


<ERR 597>(INVALID LEADING BLANK IN FIELD SPECIFICATION) 
Incorrect field specification entered. Correct and retry. 


<ERR 598>(INVALID SPACES IN CHARACTER FIELD SPECIFICATION) 
Spaces cannot be specified in the character field. 


<ERR 599>(INVALID DELIMITER (‘’—’’) 
A hyphen (-) can’t occur in the parameter field. Only a slash (/) and a comma 
(,) are permitted. Correct and retry. 


<ERR 600>(SYSTEM ERROR IN FC) 
Error occurred in MPDP’s FC function. See MAPPER 80 coordinator or take a 
job dump. 
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<ERR 601>(SYSTEM ERROR IN FNC) 
Error occurred in interface between FPC and FPR. An unregistered function 
name was sent to FPR from FPC. Correct and retry. 


<ERR 605>(SYSTEM ERROR: UNREGISTERED OR UNCATALOGUED MODULE 
WAS CALLED) 
System error was caused: 
1. Unregistered program module called 
2. Uncataloged shared code module of run (RUNSB1) was called. See 
MAPPER 80 coordinator or take a job dump. 


<ERR 606>(SYSTEM ERROR IN LD) 
LOADR MACRO was requested. See MAPPER 80 coordinator or take a job 
dump. 


<ERR 607>(CAN’T GET MODULE LOAD AREA.) 
Wait a few minutes. Then retry. 


<ERR 610>(SYSTEM ERROR IN RB) 
Error occurred in the MPDP-RB function. See MAPPER 80 coordinator or take a 
job dump. 


<ERR 630>(CONTIGUOUS EDIT-—CODE 0 IS INVALID) 
Two tab columns can’t be designated contiguously. Correct and retry. 


<ERR 631>(FIELD SIZE OF EDIT—CODE ‘7’ SHOULD BE EVEN) 
All Kanji character fields must be even in length. Correct length and retry. 


<ERR 640>(SYSTEM ERROR IN SORT) 
Error occurred when requesting FPRSOW module from the FPRSRT module. 
See MAPPER 80 coordinator or take a job dump. 


<ERR 641>(SYSTEM ERROR IN SORT) 
Error occurred in MPDP sort request. See MAPPER 80 coordinator or take a 
job dump. 


<ERR 650>(SPECIFIED MODE IS NOT ALLOWED TO THIS USER-ID) 
Mode number specified in the M function is not accessible to this user-id. 


<ERR 651>(INVALID MODE PASSWORD) 
Mode password specified in the M function is incorrect. 
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<ERR 652>(MODE NUMBER OUT OF RANGE) 
Mode number exceeds range 000 through 999. Correct and retry. 


<ERR 653>(SYSTEM ERROR: TYPE SEQUENCE IS NOT B — 1) 
Type sequence in the data base does not run from B to ! sequentially. See 
MAPPER 80 coordinator. 


<ERR 685>(SPECIFIED REPORT MUST EQUAL DISPLAYING REPORT) 
When using the DR function, the specified RID must correspond to currently 
displaying RID. First display the RID, then delete it. 


<ERR 686>(THIS USER-ID CANNOT DELETE THIS REPORT) 
To delete a RID, user-id must match the user-id of the RID. 


<ERR 687>(THE REPORT ALREADY EXISTS) 
You cannot add a report that already exists. 


<ERR 688>(THERE IS NO FREE RID IN THIS TYPE) 
No free RIDs are available. If possible, delete RIDs to make space for new 
ones. 


<ERR 690>(REPLACED REPORT DOES NOT EXIST) 
Second RID specified does not exist. 


<ERR 691>(THIS USER-ID CANNOT REPLACE REPORT) 
User-id does not match the second report (the replaced report). You cannot 
overwrite this RID. 


<ERR 692>(THESE REPORTS MUST HAVE THE SAME LINE LENGTHS) 
Line lengths of the replacing and replaced reports must be equal. 


<ERR 693>(THERE IS NO FREE RID) 
No free RIDs exist under the specified type. Delete some RIDs in order to add 
more to this type. 


<ERR 695>(APPEND RID DOES NOT EXIST) 
Specified adding RID (the second RID) does not exist. 
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<ERR 696>(THESE REPORTS MUST HAVE THE SAME LINE LENGTH) 
The ADON function can't be used for reports of different lengths. 


<ERR 697>(ORIGINAL REPORT DOES NOT EXIST) 
Base report (the first RID specified) does not exist. 


<ERR 700>(INVALID NUMBER OF LINES) 
Correct and retry. 


<ERR 705>(MAX NUMBER OF FIELDS EXCEEDED) 
The F function cannot process more than 75 fields. Correct and retry. 


<ERR 710>(INVALID OPTION) 
Invalid character is in the option field of the F function. Correct and retry. 


<ERR 711>(INVALID LINE TYPE) 
Incorrect line type was specified. Only tab and * line type are allowed. Correct 
and retry. 





<ERR 712>(INVALID PARAMETER FOR MASK) © 
Error occurs in deleting asterisks from the F function mask. Correct and retry. 


<ERR 713>(INVALID EDIT-CODE IN RID O) 
Correct and retry. 


<ERR 714>(NON—NUMERIC CHARACTER WAS SPECIFIED IN A NUMERIC 
FIELD 


Correct and retry. 


<ERR 715>(NO PARAMETER) 
Parameter must be entered in the mask of the FIND function. Correct and retry. 


<ERR 716>(INVALID R—OPTION) 
R option format must be 


Rn-m 
where: 


n-m 
Are RID numbers. 





Correct and retry. 
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<ERR 717>(CORRESPONDING DATA DOESN'T EXIST) 
No data matches the specified parameters. 


<ERR 718>(NOT SORTED) 
Report must be sorted before performing the BF function. Sort report data, 
then retry the BF function. 


<ERR 719>(SPECIFIED REPORT MUST HAVE AN INDEX) 
Reports processed by the BF function must have an index. To obtain an index, 
duplicate the original report; then delete the original report, replace it with the 
duplicated report, and retry. 


<ERR 726>(INVALID OPTIONS) 
Correct and retry. 


<ERR 727>(INVALID PARAMETER FOR MASK) 
Mask asterisks were incorrectly deleted. Correct and retry. 


<ERR 728>(INVALID EDIT—CODE IN RID 0) 
Correct and retry. 


<ERR 729>(INVALID PARAMETER IN NUMERIC FIELD) 
Specified numeric parameter is not in correct numeric format. Correct and 
retry. 


<ERR 730>(INVALID PARAMETER FOR RANGE SEARCH) 
Range search parameter r is incorrectly specified. Correct and retry. 


<ERR 731>(MISSING SEARCH PARAMETER) 
A parameter must be entered into the S function mask. Correct and retry. 


<ERR 750>(DUPLICATE OPTION) 
Same option is specified twice. Specify the option once and retry the function. 
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<ERR 751>(INVALID NUMERIC RANGE) 
The S option must be in the following format: 


Sx(-y)¢,y) 
where: 


X1y 
Specifies the line range to scan. 


Correct your line number range and retry. 


<ERR 752>(INVALID T—OPTION) 
T option must be in the following format: 


T™ 


where: 


Is the transparent character. 


Correct and retry. 





<ERR 753>(LINE NUMBER IS BEYOND LAST LINE) 
S option specifies a line number beyond the last line. Correct and retry. 


<ERR 754>(OPERATION STRING EXCEEDS 32 CHARACTERS) 
Target or replacing string of the CHG function exceeds 32 characters. Correct 
and retry. 


<ERR 755>(THERE IS NO OPERATION STRING) 
Target and replacing string must both be specified in the CHG function. Correct 
and retry. 


<ERR 760>(INVALID MASK IN ISSUING REPORT) 
Asterisks incorrectly deleted in the sending report mask (the first mask). 
Correct and retry. 


<ERR 761>(INVALID EDIT—CODE IN ISSUING REPORT) 
Correct and retry. 
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<ERR 762>(INVALID MASK IN RECEIVING REPORT) 
Asterisks were incorrectly deleted in the mask of the receiving report (the 
second mask). Correct and retry. 


<ERR 763>(INVALID EDIT—-CODE IN RECEIVING REPORT) 
Correct and retry. 


<ERR 764>(NUMBER OF MATCHING FIELDS OF BOTH REPORTS SHOULD BE 
THE SAME) 
Correct and retry. 


<ERR 765>(FIELD TYPE OF MATCHING FIELDS OF BOTH REPORTS SHOULD 
BE SAME) 
Edit-codes of matching fields in the sending and receiving reports must be the 
same. Correct and retry. 


<ERR 766>(LENGTH OF MATCHING FIELDS OF BOTH REPORTS SHOULD BE 
EQUAL) 
Correct and retry. 


<ERR eee OF MATCHING FIELDS OF BOTH REPORTS ARE NOT 
AME) 


Matching fields of the sending and receiving reports have different sorted 
types. 


<ERR 768>(NUMBER OF MOVING FIELDS OF BOTH REPORTS SHOULD BE 
EQUAL) 
Correct and retry. 


<ERR 769>(INVALID OPTIONS) 
Valid options for the MA function are: C, D, F, Il, M, N, P, and S. Correct and 
retry. 


<ERR 770>(INVALID CHARACTER IN ISSUING FIELD) 
Correct and retry. 


<ERR 771>(DUPLICATE PARAMETER IN ISSUING FIELDS) 
Duplicate matching levels (1—5) are incorrectly specified in the issuing report 
mask. Correct and retry. 
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<ERR 772>(INVALID PARAMETER IN ISSUING FIELD) 
Matching levels incorrectly specified in the issuing report mask. Valid levels are 
1 through 5. Correct and retry. 


<ERR 773>(MISSING MATCHING FIELD IN ISSUING REPORT) 
Matching field must be specified in the issuing report mask. Correct and retry. 


<ERR 774>(MATCHING LEVELS NOT CONSECUTIVE IN ISSUING REPORT) 
Matching levels must be specified as follows: 1, 2, 3, 4, 5. Correct and retry. 


<ERR 775>(INVALID LENGTH OF ISSUING FIELD) 
Length of matching field in the issuing report exceeds 36 characters. Correct 
and retry. 


<ERR 776>(DUPLICATE PARAMETER IN ISSUING FIELDS) 
A moving field parameter is repeated. Valid parameters are specified as 
follows: 
A,8,C,<<2,M 


Correct and retry. 


<ERR 777>(MISSING MOVING FIELD IN ISSUING REPORT) 
Correct and retry. 


<ERR 778>(MOVING FIELDS NOT CONSECUTIVE IN ISSUING REPORT) 
Moving fields must be specified in the following order: A,B,C,...,M. Correct and 
retry. 


<ERR 779>(DATA OF ISSUING REPORT NOT SORTED) 
The P option was specified in the MA function, but data had not been 
presorted. Presort data and retry MA function with P option. 


<ERR 780>(INVALID PARAMETER IN RECEIVING REPORT) 
Correct and retry. 


<ERR 781>(DUPLICATE MATCHING KEY IN RECEIVING REPORT) 
A matching level parameter cannot be repeated twice. Only five matching 
levels are permitted. Valid levels are 1, 2, 3, 4, 5. Correct and retry. 
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<ERR 782>(INVALID MATCHING LEVEL IN RECEIVING REPORT) 
Valid matching levels are: 1, 2, 3, 4, 5. Specify them consecutively. Correct 
and retry. 


<ERR 783>(MISSING MATCHING FIELD IN RECEIVING REPORT) 
Correct and retry. 


<ERR 784>(INVALID MATCHING KEY IN RECEIVING REPORT) 
Matching levels must be specified consecutively. Valid levels are 1, 2, 3, 4, 5. 
Correct and retry. 


<ERR 785>(INVALID LENGTH OF MATCHING KEY IN RECEIVING REPORT) 
Total length of the matching field exceeds 36 characters. Correct and retry. 


<ERR 786>(DUPLICATE MOVING FIELD IN RECEIVING REPORT) 
A moving field parameter cannot be repeated twice. Valid parameters are: 


A,B,C,...,M. 
Specify parameters consecutively. Correct and retry. 


<ERR 787>(MISSING MOVING FIELD IN RECEIVING REPORT) 
Correct and retry. 


<ERR 788>(MOVING FIELD NOT CONSECUTIVE IN RECEIVING REPORT) 
Moving field parameters must be specified in consecutive order. Valid 
parameters are: A, B, C, ..., M. No duplications are allowed. Correct and retry. 


<ERR 789>(DATA IN RECEIVING REPORT NOT SORTED) 
The P option is specified in the MA function but data in the report is not 
presorted. Presort data and retry the MA function with the P option. 


<ERR 790>(SYSTEM ERROR IN SORTING ISSUING REPORT (MPDP)) 
Error occurred in MPDP while sorting the report. See MAPPER 80 coordinator 
or take a job dump. 


<ERR 791>(SYSTEM ERROR IN SORTING ISSUING REPORT (SORT)) 
Error occurred in FPRSOW while sorting the report. See MAPPER 80 
coordinator or take a job dump. 
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<ERR 792>(SYSTEM ERROR IN SORTING RECEIVING REPORT (MPDP)) 
Error occurred in MPDP while sorting the report. See MAPPER 80 coordinator 
or take a job dump. 


<ERR 793>(SYSTEM ERROR IN SORTING RECEIVING REPORT (SORT)) 
Error occurred in FPRSOW while sorting the report. SEE MAPPER 80 
coordinator or take a job dump. 


<ERR 794>(SYSTEM ERROR IN SORTING MATCHED RESULT (MPDP)) 
Error occurred in MPDP while sorting the report. See MAPPER 80 coordinator 
or take a job dump. 


<ERR 795>(SYSTEM ERROR IN SORTING MATCHED RESULT (SORT)) 
Error occurred in FPRSOW while sorting the result. See MAPPER 80 
coordinator or take a job dump. 


<ERR 800>(SYSTEM ERROR: EDIT—CODE OF RID O IS BAD) 
See MAPPER 80 coordinator or take a job dump. 


<ERR 801>(INVALID CHARACTER IN OPTION FIELD) 
Valid options for TOT are: A,C,E,H,|,O,Rn,=X,”. 
Correct and retry. 


<ERR 802>(INVALID R,U,D—OPTION) 
Correct option formats are as follows: 


Rx-y(Rx,y) 
where x,y are selected RIDs. 


U or U(x) 
where x is a search RID. 


D 
Enter all options on the line directly above the mask. Correct and retry. 


<ERR 803>(CANNOT ENTER CHARACTER INTO FIRST COLUMN OF MASK) 
Correct and retry. 


<ERR 804>(PARAMETERS SHOULD BE SPECIFIED IN FIRST COLUMN OF 
FIELD) 
Correct and retry. 
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<ERR 805>(CANNOT INPUT CHARACTER AFTER ’’M.S,C,A”’) 
Parameters M, S, C, and A cannot have trailing characters. Correct and retry. 


<ERR 806>(INVALID NUMERIC DATA) 
Trailing characters not in correct numeric format. Correct and retry. 


<ERR 807>(DID NOT ENTER PARAMETER ON FIRST LINE OF 
MASK PARAMETER AREA) 
Correct and retry. 


<ERR 808>(ONLY THE FOLLOWING PARAMETERS CAN BE SPECIFIED 
MORE THAN ONCE: + — = A) 
Correct and retry. 


<ERR 809>(CANNOT SPECIFY ‘’+’’ AND “’/”” SIMULTANEOUSLY) 
Correct and retry. 


<ERR 810>(ALL ‘“M’’ PARAMETERS MUST HAVE ‘=’ PARAMETERS) 
Correct and retry. 


<ERR 811>(CANNOT DO MOVE BETWEEN KANJI AND NON—KANJI FIELDS) 
Correct and retry. 


<ERR 812>(CANNOT PUT KANJI-DATA IN ALPHANUMERIC FIELD) 
Correct and retry. 


<ERR 813>(CANNOT PUT ALPHA—NUMERIC DATA IN A KANJI FIELD) 
Correct and retry. 


<ERR 814>(INVALID COMBINATION OF OPTION AND PARAMETER) 
Specified option/parameter combination is incorrect for horizontal arithmetic. 
Correct and retry. 


<ERR 815>(CANNOT HAVE MORE THAN 16 + PARAMETERS) 
Remove + sign and retry. 


<ERR 816>(INVALID OPTIONS COMBINATION (R,U,D)) 
Specified option/parameter combination is incorrect for vertical summation. 
Correct and retry. 
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<ERR 817>(CANNOT DESIGNATE KANJI-ITEM AS ARITHMETIC DATA) 
Specified option/parameter combination is incorrect for subtotaling. Correct 
and retry. 


<ERR 818>(CANNOT SPECIFY VARIABLES ON @TOT EXCEPT AVERAGING 
& VERTICAL SUMM.) 
Correct and retry. 


<ERR 819>(INVALID PARAMETERS COMBINATION) 
Correct and retry. 


<ERR 820>(INVALID CHARACTER IN PARAMETER) 
Correct and retry. 


<ERR 821>(INVALID PARAMETER INPUT — HORIZONTAL ARITHMETIC-) 
Must be trailer data after * or / when * or / and = combination is 
specified, e.g.,*100 = 


<ERR 822>(LENGTH OF KEY—FIELD SHOULD BE WITHIN 24 CHARACTERS) 
Correct and retry. 


<ERR 823>(TOTAL NO. OF PARAMETERS SHOULD NOT BE GREATER 
THAN 18) 
Reduce number of parameters and retry. 


<ERR 824>(LENGTHS OF MOVING FIELDS IN BOTH MASKS DO NOT MATCH) 
Lengths of moving fields in the issuing and receiving reports must be equal. 
Correct and retry. 


<ERR 825>(FILLING FIELD CANNOT SPECIFY OPTIONS) 
Filling or moving fields cannot specify options. Correct and retry. 


<ERR 826>(INVALID * DELETION IN MASK) 
Correct and retry. 


<ERR 827>(ONLY VERTICAL SUMMATION PARAMETER IS ALLOWED ON 
2ND LINE) 
Parameters specified on the second parameter line are for vertical summation 
only. Correct and retry. 
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<ERR 828>(INVALID COMBINATION OF = AND ANOTHER PARAMETER) 
Specified parameter cannot be combined with an equal sign (=). Correct and 
retry. 


<ERR 829>(INVALID COMBINATION OF PARAMETERS ON LINES 1 AND 2) 
Combination of horizontal and vertical summation is specified by two lines of 
parameters. Correct and retry. 


<ERR 830>(SYSTEM ERROR OCCURRED (TOT)) 
Error occurred in the FPRTOT module while analyzing parameters. See MAPPER 
80 coordinator or take a job dump. 


<ERR 855>(CANNOT DELETE MODE WHEN IN USE) 
A mode can’t be deleted (using MDEL) when the mode is in use. Make sure 
there are no types marked open. 


<ERR 856>(INVALID MODE NUMBER) 
Mode specified in the MDEL function is incorrect. Correct and retry. 


<ERR 857>(ODD MODE NUMBER IS INVALID) 
Specified mode must be even for the following functions: 


MGEN 
MMOD 
MDSP 
MDEL 


<ERR 858>(MUST INPUT MODE NAME) 
Mode name must be specified in the MGEN function. Correct and retry. 


<ERR 859>(MODE NUMBER DOESN'T EXIST) 
Correct and retry. 


<ERR 860>(SPECIFIED TYPE ALREADY EXISTS) 
Type specified in the TGEN function already exists. Correct and retry. 


<ERR 861>(INVALID TYPE) 
Type specified in the TDEL function already in OPEN status. 
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<ERR 862>(CANNOT DELETE TYPE WHEN IN USE) 
Specified type can’t be deleted because RID in the type is in use. 


<ERR 864>(INVALID START COLUMN NUMBER) 
Incorrect starting column specified for the print. Correct and retry. 


<ERR 865>(INVALID DEVICE NAME) 
Specified output device name is invalid. Correct and retry. 


<ERR 866>(CANNOT USE THIS REPORT) 
Specified report cannot be printed. 


<ERR 867>(CANNOT REGISTER AUXILIARY DEVICE. PLEASE RE-TRY.) 
Requested AUX function is not processed. Retry. 


<ERR 868>(NO FREE RIDS LEFT IN PRINT QUEUE) 
No free RIDs are left in AUX queue. See MAPPER 80 coordinator. 


<ERR 869>(REPORT ERROR (FMT)) 
Errors occurred in RID O of the result being printed. Correct and retry. 


<ERR 870>(REPORT ERROR (GL)) 
System error occurred in a MPDP request (GL). See MAPPER 80 coordinator or 
take a job dump. 


<ERR 871>(REPORT ERROR (DR)) 
System error occurred in a MPDP request (DR). See MAPPER 80 coordinator or 
take a job dump. 


<ERR 872>(REPORT ERROR (GF)) 
System error occurred in a MPDP request (GF). See MAPPER 80 coordinator or 
take a job dump. 


<ERR 873>(AUXILIARY DEVICE ISN’T CONNECTED) 
Specified output COP device is not connected to job. 


<ERR 874>(NO FREE AUXILIARY DEVICE. PLEASE RE-TRY) 
Specified auxiliary printer is in use. Retry after short wait. 
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<ERR 875>(THERE IS NO REPORT FOR MASK) 
Specified RID doesn’t exist when displaying mask. 


<ERR 876>(THERE IS NO ISSUING REPORT FOR MASK) 
Correct and retry. 


<ERR 877>(INVALID MODE PASSWORD FOR ISSUING REPORT) 
Correct and retry. 


<ERR 880>(THIS MODE IS ALREADY CATALOGUED) 
Mode number specified in the MGEN function already exists. You cannot 
generate same mode number twice. 


<ERR 881>(CANNOT DELETE CURRENT MODE) 
Mode number specified in MDEL function cannot be deleted. 


<ERR 885>(INVALID OPTION) 
Error occurred in the option specification. Correct and retry. 


<ERR 886>(INVALID FIELD PARAMETER) 
Incorrect parameter is in the input. Correct and retry. 


<ERR 887>(THERE IS NO PARAMETER IN FIELD (x)) 
Parameter must be specified in field (x). Correct and retry. 


<ERR 888>(THERE IS NO PARAMETER IN FIELD (1)) 
Parameter must be specified in field (1). Correct and retry. 


<ERR 889>(CANNOT SPECIFY PARAMETER IN FIELD (2)) 
Correct and retry. 


<ERR 890>(CANNOT SPECIFY PARAMETER IN FIELD (3)) 
Correct and retry. 


<ERR 891>(INVALID PARAMETER IN FIELD (2,3)) 
Correct and retry. 


<ERR 892>(CANNOT USE THIS REPORT) 
There are no data lines in this report. 
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<ERR 893>(MUST BE NUMERIC) 
Report does not contain numeric data. The G function cannot be performed on 
a report unless numeric data is present. 





<ERR 894>(PRIMITIVE DATA IS INCORRECT) 
Correct data and retry functions. 


<ERR 895>(INVALID U-OPTION) 
The line specified by the U-option is not a comment line. Correct and retry. 


<ERR 896>(FIELD LENGTH EXCEEDS 12 CHARACTERS) 
Correct and retry. 


<ERR 897<(INVALID OPTION) 
Invalid option was entered. Correct and retry. 


<ERR 900>(RUN IS NOT REGISTERED) 
Specified run is not registered in the run-list. 





<ERR 901>(RUN—REPORT DOES NOT EXIST) 
No run report exists with the specified name. 


<ERR 902>(INVALID LABEL) 
Correct and retry. 


<ERR 903>(DUPLICATE LABEL) 
Duplicate labels are in the run. Change one of the labels and retry. 


<ERR 904>(THERE ARE NO DATA LINES IN THE RUN REPORT) 
Run report contains only header lines. 


<ERR 905>(CANNOT USE THIS MODE FOR THIS RUN) 
Specified mode cannot be used for this run. Correct and retry. 


<ERR 906>(REPORT IN ODD-NUMBERED MODE CANNOT BE UPDATED) 
Only reports in even-numbered modes can be updated. 
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@ <ERR 907>(MODE DOES NOT EXIST) 
Try another mode. Rerun. 


<ERR 908>(TYPE DOES NOT EXIST) 
Try another type. Rerun. 


<ERR 909>(RID DOES NOT EXIST) 
Try another RID. Rerun. 


<ERR 910>(RESULT DOES NOT EXIST) 
No result has been created. 


<ERR 911>(LINE NUMBER DOES NOT EXIST IN REPORT) 
Specified data line is not a valid line in the report. Try another line and rerun. 


<ERR 912>(REQUIRED PARAMETER MISSING) 
The following parameters are required for the @SUB run function: 


Ss 
@ Specifies the key field. 


+ 
Specifies the fields to be subtotaled. 


Correct and retry. 


<ERR 913>(INVALID DELIMITER) 
Delimiter character is invalid. Correct and retry. 


<ERR 914>(CANNOT USE RESERVED WORD FOR PARAMETER) 
First enter the reserved word in a variable (e.g., @CHG V1A4 reserved-word). 
Then use the variable as a parameter. Correct and retry. 


<ERR 915>(PARAMETER TOO LONG) 
Correct and retry. 


<ERR 916>(MUST BE NUMERIC) 
Nonnumeric characters were entered in a designated numeric field. Correct and 
retry. 
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<ERR 917>(INVALID TYPE) 
An incorrect type was specified. Valid types are: 


= A (free-form type) 
= = Bthrul 


Correct and retry. 


<ERR 918>(MUST BE ALPHABETIC) 
Nonalphabetic characters were entered in a designated alphabetic field. Correct 
and retry. 


<ERR 919>(NUMERIC CHARACTER MUST BE RIGHT JUSTIFIED) 
A numeric character cannot be entered into a field with trailing blanks. 


invalid: 156AA— field x 
Valid: 4A156— field x 


Correct and retry. 


<ERR 920>(NO BLANKS ALLOWED IN NUMERIC FIELD) 
Correct and retry. 


<ERR 921>(MUST BE NUMERIC) 
You cannot enter only a minus (-) into a numeric field. The minus must be 
followed by a number. Correct and retry. 


<ERR 922>(MUST BE NUMERIC) 
A minus (—) character is placed in the middle of the numeric string. It must be 
before the number. 


Invalid: 2-3—>field x 
Valid: -23—>field x 


Correct and retry. 


<ERR 923>(CANNOT USE ‘’—”’ IN NUMERIC PARAMETER) 
The minus (—) character cannot be entered into the specified numeric 
parameter. Correct and retry. 


<ERR 924>(MUST BE NUMERIC) 
Nonnumeric characters were entered into a designated numeric field. Correct 
and retry. 




















UP-9736 SPERRY OS/3 A-41 
MAPPER 80 FORMS GENERATION AND UTILITIES 


<ERR 925>(INVALID LABEL (NOT 1-—999)) 
All labels must be in the range 1 through 999. Correct and retry. 


<ERR 926>(UNDEFINED LABEL) 
You are referencing a label that does not exist. The format of the label 
definition is shown in the following example: 


2100:CHG V1 © 


Correct and retry. 


<ERR 927>(REPORT IS LOCKED) 
The report you are trying to access is locked by another user. Retry after a 
short wait. 


<ERR 928>(ERROR OCCURRED. CANNOT DISPLAY RUN REPORT BECAUSE 
OF I/O ERROR) 
An error occurred in the run. This caused an error in MPDP when trying to 
display the run report. See MAPPER 80 coordinator. 


<ERR 929>(CANNOT USE DEFINED VARIABLE FOR PARAMETER) 
A newly-defined variable cannot be entered into the first field of the run 
statement. Define the variable before using it. Retry run. 


<ERR 930>(REPORT REACHED MAX LINES) 
The report has 99999 lines. No more lines can be added to this report. Delete 
lines or use another report. 


<ERR 931>(CANNOT ADD LINES BECAUSE MAX NUMBER OF LINES 
EXCEEDED) 
The report will reach the maximum number of lines after execution of the 
@LNX or @LN+ run function. Delete lines or use another report. 


<ERR 932>(OBJECT REPORT IS LOCKED) 
The report specified in the @LN+ run function is in use. Retry after a moment. 


<ERR 933>(INVALID NO. OF LINES) 
The number of duplicated lines specified in the @LNX run function cannot 
exceed 23. Correct and retry. 
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<ERR 934>(INVALID NO. OF TIMES) @ 
The number of times to duplicate the lines cannot be greater than 99. Correct 
and retry. 





<ERR 935>(NO. OF ADDITION LINES EXCEEDS 99 LINES) 
The total number of lines added by the @LNX run function cannot be greater 
than 99. 


number of number of 


total lines added = duplicated X | |times to 
lines duplicate 





Correct and retry. 


<ERR 936>(INVALID NO. OF DELETE LINES) 
You cannot delete more than 999 lines at a time. Correct and retry. 


<ERR 937>(NEXT LINE MUST BE OUTPUT LINE) 
An output line must follow the @RDC and @SUB run functions. Correct and 
retry. 


<ERR 938>(NO OTHER RUN COMMAND CAN FOLLOW THIS RUN COMMAND *S 
ON THE SAME LINE) 
The following run functions cannot have another run function on the same line 
with them: 





aDSP,@ESR,@RSR,ARDC,ORUN, ASUB 


Enter the second run function on the line below the first. Rerun. 


<ERR 939>(END OF RUN REPORT) 
You have reached the last line of the run report. No more lines can be added 
to this report. 


<ERR 940>(EXCEEDED 256 CHARACTERS iN TOTAL RUN COMMAND) 
The length of a run function cannot be greater than 256. Correct and retry. 


<ERR 941>(NO. OF CONTINUATION LINES EXCEEDS 10) 
The number of continuation lines of any run function cannot be greater than 
10. Correct and retry. 
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<ERR 942>(NO DATA IN CONTINUATION LINE) 
A continuation line must contain data. Correct and retry. 


<ERR 943>(MUST HAVE RUN COMMAND FOLLOWING ;) 
Correct and retry. 


<ERR 944>(INVALID RUN COMMAND NAME) 
Invalid run function 


<ERR 945>(CANNOT TERMINATE FIELD BY (COMMA,/,-)) 
Correct and retry. 


<ERR 946>(TOO MANY SUB-FIELDS) 
Correct and retry. 


<ERR 947>(INVALID EXPRESSION FOR LITERAL (NO. OF QUOTES MUST 
BE EVEN)) 
When describing literal strings, quotes must appear in pairs. Correct and retry. 


<ERR 948>(LACK OF FIELD) 
Fields are missing in the run function. Correct and retry. 


<ERR 949>(TOO MANY FIELDS) 
Too many fields are specified in the run function. Correct and retry. 


<ERR 950>(LACK OF SUB-—FIELD) 
A required subfield is missing from the run function. Correct and retry. 


<ERR 951>(TOO MANY SUB-FIELDS) 
Too many subfields specified in the run function. Correct and retry. 


<ERR 952>(NO INITIAL VALUE FOR VARIABLE) 
There is no initial value given for this variable. Use either the colon (:) 
statement or the @CHG run function to initialize the variable before using it. 
Correct and retry. 
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<ERR 953>(INVALID LENGTH OF INITIAL VALUE) & 
The length of the initial value for the variable must equal the designated 


variable length. Correct and retry. 


<ERR 954>(INVALID DEFINITION OF VARIABLE) 
The correct variable definition formats are: 


1. Colon definition 
e.g., :V1A3[ABC ;V2H3[DEF 
2. @CHG definition 


e.g-, OCHG V3F5.2 12.34 
e.g., @RDL,2,B,6,6 F1,F2 V10A2,V11A6 


3. Run function definition 


e.g., @RDL,2,B,6,6 F1,F2 V10A2,V11A6 


Correct and retry. 





<ERR 955>(INVALID USE OF VARIABLE) 
A variable was used incorrectly in either the colon (:) line or the output line. 


Correct and retry. 


<ERR 956>(NO FREE SPACE IN VARIABLE AREA) 
No more space exists in the variable area. No more variables can be defined in 


the run. 
Redesign the run so that extraneous variables are deleted. Then, define new 


variables. 


<ERR 957>(INVALID VARIABLE NUMBER) 
All variable numbers must be in the range V1 thru V999. Correct and retry. 
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<ERR 958>(INVALID VARIABLE TYPE) 
The following types of variables are available: 


A Alphanumeric <16 characters 
H Alphanumeric and special characters <16 characters 


| Integers <16 characters 


F Real numbers <16 characters, 14 of which can be 
fractional 
S Alphanumeric and special characters <132 


Correct and retry. 


<ERR 959>(INVALID LENGTH OF VARIABLE) 
All variable types can be up to 16 characters in length, except for type S 
variables, which can be up to 132 characters. Correct and retry. 


<ERR 960>(CAN’T REFER TO UNDEFINED VARIABLE) 
Define the variable before using it or referring to it. Variables can be defined 
with the colon (:) statement, the @CHG run function or in the @RUN statement 
itself. Correct and retry. 


<ERR 961>(INVALID POSITION OF START CHARACTER) 
An undefined variable cannot be used to specify the start column number of a 
partial variable. Correct and retry. 


<ERR 962>(INVALID VARIABLE TYPE (NOT *A’’,’’I’’)) 
The variable that specifies the start column of a partial variable must be type A 
or |. Correct and retry. 


<ERR 963>(INVALID SPECIFICATION OF START CHARACTER POSITION) 
The start column number of the partial variable is incorrectly specified. It must 
either be a number or a previously initialized variable of type A or |. Correct 
and retry. 


<ERR 964>(UNDEFINED VARIABLE CANNOT SPECIFY START CHARACTER 
POSITION) 
Define the start column variable before using it (define it with colon (:) 
statement or @CHG run function). Retry. 
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<ERR 965>(CANNOT SPECIFY LENGTH BECAUSE OF INVALID VARIABLE NO.) 
An undefined variable cannot be used to specify the length of a partial variable. 
Define it before using it (with the colon (:) statement or the @CHG run 
function). Correct and retry. 


<ERR 966>(CANNOT SPECIFY LENGTH BECAUSE OF BAD VARIABLE TYPE 
(NOT “Bl OR “"l"’y) 
The variable specifying the length of the partial variable must be of type A or I. 
Correct and retry. 


<ERR 967>(CANNOT SPECIFY LENGTH BECAUSE OF INVALID VARIABLE) 
The length of the partial variable is incorrectly specified. It must be either a 
number or a previously initialized variable of types A or |. Correct and retry. 


<ERR 968>(CANNOT SPECIFY LENGTH BECAUSE OF UNDEFINED VARIABLE) 
Define the length variable before using it with the colon (:) statement or the 
@CHG run function. Retry. 


<ERR 969>(DEAD LOCK OCCURRED) 
System error occurred when reading run report from WRKR. Retry after a short 
wait. If same error occurs, see MAPPER 80 coordinator. 


<ERR 970>(MPDP ERROR OCCURRED WHEN READING REPORT) 
System error occurred when reading run report from WRKR. See MAPPER 80 
coordinator. 


<ERR 971>(CANNOT USE “’@”’ AND “’:” AT THE HEAD OF A CONTINUATION 
LINE). 
Correct and retry. 


<ERR 972>(CANNOT USE RESERVED WORD, VARIABLE AND LITERAL IN THIS 
PARAMETER) 
Correct and retry. 


<ERR 973>(CANNOT USE VARIABLE AND RESERVED WORD IN OPTION FIELD) 
Options must be specified as character strings or literals. Correct and retry. 


<ERR 974>(UNNECESSARY PARAMETER MUST BE OMITTED) 
Correct and retry. 


<ERR 975>(REQUIRED PARAMETER WAS OMITTED) 
Correct and retry. 
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<ERR 976>(THIS PARAMETER MUST BE A VARIABLE) 
Correct and retry. 


<ERR 977>(CANNOT USE PARTIAL VARIABLE) 
Correct and retry. 


<ERR 978>(INVALID VARIABLE TYPE) 
Permissible variable types are A, I, or F. Correct and retry. 


<ERR 979>(TOO MANY PARAMETERS) 
Valid parameters for the SUB command are: 


+ASAM 


A maximum of 16 for each can be specified. Correct and retry. 


<ERR 980>(INVALID CHARACTER IN ARITHMETIC PARAMETER) 
Correct and retry. 


<ERR 981>(PARAMETER “’S’” SHOULD BE THE ONLY ONE) 
Correct and retry. 


<ERR 982>(PARAMETER “‘S” IS REQUIRED) 
Correct and retry. 


<ERR 983>(MAXIMUM NUMBER OF PARAMETER “'+’’,’’M”’ IS 16) 
Correct and retry. 


<ERR 984>(KEY FIELD MUST BE WITHIN 24 CHARACTERS) 
The length of the key field must be less than or equal to 24 characters. 
Correct and retry. 


<ERR 985>(INVALID LINE TYPE) 
Correct and retry. 


<ERR 986>(CANNOT USE KANJI DATA FOR SUBTOTALING) 
Correct and retry. 


<ERR 987>(NO *’+’’ PARAMETER) 
Specify + parameter and retry. 
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<ERR 988>(TOO MANY VARIABLES) 


The specification of variables for the @SUB run function is as follows. 
mg First variable (with E option): 


number of lines of each subgroup 
@ Second and subsequent variables: 
key field (s), subtotal value (+), and data of last line of subgroup (M) 


A variable must be specified for each parameter plus one extra if the E option 
is specified. Correct and retry. 


<ERR 989>(LACK OF VARIABLES) 
See explanation of <ERR 988>. 


<ERR 990>(DIFFERENT TYPE BETWEEN VARIABLE AND DATA) 
Kanji data is used incorrectly in the @SUB run function. Correct and retry. 


<ERR 991>(INVALID LENGTH OF VARIABLE) 
The variable corresponding to the S or M parameter must have the same 
length as the specified field. Correct and retry. 


<ERR 992>(DIFFERENT NO. OF VARIABLE BETWEEN ‘’SUB” AND 
OUTPUT LINE) 
The number of variables in the output line following the @SUB run function 
must equal the number of variables specified in the @SUB run function. 


<ERR 993>(SYSTEM ERROR: LOGIC PROBLEM IN RUN CONTROL 
STATEMENT) 
An error occurred while analyzing the run control statement. See MAPPER 80 
coordinator. 


<ERR 994>(INVALID CHARACTER FIELD) 
Correct and retry. 


<ERR 995>(PERIOD LINES CANNOT BE LONGER THAN 80 CHARACTERS) 
Correct and retry. 
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<ERR 996>(FIELD NUMBER TOO LARGE) 
When specifying the object field in the format Fnn, nn should be the existing 
field number. This number can be obtained with the FLD function. Correct and 
retry. 


<ERR 997>(INVALID KANJI FIELD) 
Correct and retry. 


<ERR 998>(INVALID KANJI FIELD. FIRST EDIT-CODE MUST BE AN 
EVEN NUMBER) _. 
Correct and retry. 


<ERR 999>(BAD KANJI FIELD. DIFFERENT EDIT—CODE CAN’T BE MIXED 
IN SAME FIELD) 
Correct and retry. 
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